Dim Koneksi As New ADODB.Connection
Dim Record As New ADODB.Recordset
Private Sub Form_Load()
Set Koneksi = New ADODB.Connection
Set Record = New ADODB.Recordset
Koneksi.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\Tes.mdb”
With Record
.CursorLocation = adUseClient
‘open “selecy * from table”
‘*=semua field
.Open “Select * from Tes”, Koneksi, adOpenDynamic, adLockOptimistic
End With
Set DataGrid1.DataSource = Record
End Sub
