coba script ini mas....
Dim conn As New ADODB.Connection
Dim RSLahir As ADODB.Recordset
Dim mvbookmark As Variant
Private Sub Form_Activate()
Set RSLahir = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; data source = " & App.Path &
"\database.mdb"
conn.CursorLocation = adUseClient
RSLahir.Open " select * from tabel where lahir = '01/01/1980'", conn
With RSLahir
If Not (.BOF And .EOF) Then
mvbookmark = .Bookmark
End If
End With
Set DataGrid1.DataSource = RSLahir.DataSource
End Sub
