Koneksi VB 6.0 dan Access 2003 pada DataGrid

Dim Conn As Connection

Dim rst As Recordset

Private Sub Command1_Click()

Set Conn = New Connection

driverDB = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\DbUniveritas.mdb;Persist Security Info=False”

Conn.CursorLocation = adUseClient

Conn.Open driverDB, “”, “”

Set rst = New Recordset

Set rst = Conn.Execute(“Select * From TbMahasiswa”)

Set DataGrid1.DataSource = rst

End Sub

Posted in: Kampus