binding

Imports MySql.Data.MySqlClient
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str As String = "server='localhost';" _
                                & "user id='root';" _
                                & "password='';" _
                                & "database='db_kenalan';"

        Dim sql As String = "SELECT * FROM list_kenalan"
        Dim connection As New MySqlConnection(str)
        Dim dataadapter As New MySqlDataAdapter(sql, connection)
        Dim ds As New DataSet()
        connection.Open()
        dataadapter.Fill(ds, "list_kenalan")
        connection.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "list_kenalan"
    End Sub
End Class