' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Dim DB As ADODB.Connection
Dim Maschinenparameter As ADODB.Recordset
Dim SatzPosition As Variant
 
Private Sub Command1_Click()
Dim Suchbegriff As String
 
Suchbegriff = "Meier"
 
Maschinenparameter.Find "Name = '" & Suchbegriff & "'"
 
If Not Maschinenparameter.EOF Then
  SatzPosition = Maschinenparameter.Bookmark
  MsgBox SatzPosition ' Test
End If
 
End Sub
 
 
Private Sub Form_Load()
Set DB = New ADODB.Connection
 
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "d:\db1.mdb"
 
Set Maschinenparameter = New ADODB.Recordset
 
Maschinenparameter.Open "SELECT * FROM Tabelle1 ", DB, adOpenDynamic, _
  adLockOptimistic
 
End Sub