Dim DB As Database
Dim RS As Recordset
 
'ID: ist Autowert
 
Private Sub Command1_Click()
 
RS.FindFirst "[ID:] = " & Text1
 
If RS.NoMatch Then
 MsgBox "Nix gefunden"
Else
 MsgBox "Gefunden"
End If
 
End Sub
 
Private Sub Form_Load()
Set DB = OpenDatabase("d:\db1.mdb")
Set RS = DB.OpenRecordset("SELECT * FROM Tabelle1", dbOpenSnapshot)
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
RS.Close
DB.Close
End Sub