Set Conn = New ADODB.Connection
        Conn.CursorLocation = adUseClient
        Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & frmSettings.txtPathToDB.Text & _
          ";Persist Security Info=False"
 
         Set RS = New ADODB.Recordset
         RS.Open "SELECT * FROM Stamm WHERE Mitgliedsnummer Like '" & foo & _
           "'", Conn, _
           adOpenStatic, adLockOptimistic
 
        RS.Fields("Mitgliedsnummer") = Mitgliedsnummer.Text
        RS.Fields("Name") = Zuname.Text
 
        Recordset.Update

Bis denne,

Maik