Option Explicit
 
Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Function FindDataRecord(Criteria As String) As Boolean
 
Dim Vorher As Double
 
 
  Vorher = Rs.Bookmark 'Aktuelle Position speichern
 
  Rs.Find Criteria
 
 
 
  If Rs.EOF = True Then 'keine Fundstelle
 
   Rs.Bookmark = Vorher
   MsgBox "Es wurde kein Datensatz gefunden.", vbInformation, _
   "Suchergebnis"
 
   FindDataRecord = False
 
  Else
 
   FindDataRecord = True
 
  End If
 
End Function
 
Private Sub cmdSuchen_Click()
Dim krit As String
krit = Me.txtSuchen.Text
 
 
Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
Cn.ConnectionString = "bestand.mdb"
Cn.CursorLocation = adUseClient
Cn.Mode = adModeReadWrite
Cn.Open
 
Set Rs.ActiveConnection = Cn
Rs.LockType = adLockOptimistic
Rs.Source = "select * From tblbestand"
Rs.Open
 
 
FindDataRecord krit
End Sub