rsAnrede.MoveFirst
rsAnrede.Find "ID = " & .CellText("AnredeID")

Option Explicit
Dim rsAnrede As ADODB.Recordset
 
Private Sub Form_Load()
  ' ...
  Set rsAnrede = New ADODB.Recordset
  rsAnrede.CursorLocation = adUseClient
  rsAnrede.Open "SELECT ID, Anrede FROM tblAnrede", oConn, adOpenStatic, _
    adLockOptimistic
  ' ...
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de