....
  Dim l_rs As Recordset
 
  On Error Resume Next
'**********************************************************
 
   Set l_rs = Db.OpenRecordset("tabelle")
   l_rs.Index = "id"
 
   'Datensatz zum ändern Positionieren
    l_rs.Seek "=", "1002"
 
    If l_rs.NoMatch Then
      l_rs.AddNew
    Else
      l_rs.Edit
    End If
 
    l_rs("feld1") = "Text1"
    l_rs("feld2") = "Text2"
    l_rs("feld3") = "Text3"
 
    l_rs.Update
    l_rs.Close
    Set l_rs = Nothing
 
'**********************************************************
' Procedure Verlassen und Fehlerbehandlung
  Exit Function
errhandler:
  mdlmain.errhandler
  Exit Function
  Resume Next
.
.
.