mok

Imports MySql.Data.MySqlClient
Public Class Form1
    Dim conn As MySqlConnection
    Dim cmd As MySqlCommand
    Dim dr As MySqlDataReader

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            conn = New MySqlConnection
            conn.ConnectionString = "server=localhost; userid=root; password=; database=db_kenalan;"
            conn.Open()
            Dim sql As String
            sql = "SELECT * FROM list_kenalan;"
            cmd = New MySqlCommand(sql, conn)
            dr = cmd.ExecuteReader
            Dim list As ListViewItem
            Do While dr.Read = True
                list = New ListViewItem(dr(0).ToString)
                list.SubItems.Add(dr(1))
                list.SubItems.Add(dr(2))
                list.SubItems.Add(dr(3))
                ListView1.Items.Add(list)
            Loop
        Catch ex As MySqlException
            MsgBox(ex.Message)
        Finally
            conn.Close()
            dr.Close()
        End Try
    End Sub

End Class