tambahin function / procedur aja gan Sub Tampilkan() conek() conn.Open() ds.Clear() Dim BT As String BT = "select * from tbsiswa" myadapter.SelectCommand = New MySqlCommand(BT, conn) myadapter.Fill(ds, "tbsiswa") b
