Dim l_rs As Recordset
 
  On Error Goto ErrHandler
'**********************************************************
 
   Set l_rs = Db.OpenRecordset("tabelle")
   l_rs.Index = "id"
 
   'Datensatz zum ändern Positionieren
    l_rs.Seek "=", "1002"
 
    If l_rs.NoMatch Then
      MsgBox "1002 nicht vorhanden!"
      l_rs.AddNew
    Else
      MsgBox "1002 vorhanden!"
      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:
  MsgBox "Fehler " & CStr(Err.Number) & " - " & Err.Description
  Exit Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de