Private Sub speichernAlles()
 
On Error GoTo fehler
 
    'Namen
    strSQL = "SELECT * FROM namen WHERE id = '" + lblId.Caption + "'"
    rsNamen.Open strSQL, con, adOpenDynamic, adLockPessimistic
 
    If Not Len(lblId.Caption) = 38 Then
        '...wird ein neuer Datensatz angelegt
        rsNamen.AddNew
    End If
 
        rsNamen!Vorname = txtVorname.Text
        rsNamen!Nachname = txtNachname.Text
 
    rsNamen.Update
 
    lblId.Caption = rsNamen!ID
 
    rsNamen.Close
 
 
    'Adressen
    strSQL = "SELECT * FROM adressen WHERE Nam_Id = '" + lblId.Caption + "'"
    rsAdressen.Open strSQL, con, adOpenDynamic, adLockPessimistic
 
    If Not Len(lblidA.Caption) = 38 Then
        rsAdressen.AddNew
        rsAdressen!Nam_Id = lblId.Caption
    End If
 
    rsAdressen!Strasse = txtStrasse.Text
    rsAdressen!Plz = txtPlz.Text
    rsAdressen!Ort = txtOrt.Text
 
    rsAdressen.Update
 
    lblId.Caption = rsAdressen!ID
 
    rsAdressen.Close
 
    'Telefon
    strSQL = "SELECT * FROM telefonnummern WHERE Nam_ID = '" + lblId.Caption + _
      "'"
    rsTelefon.Open strSQL, con, adOpenDynamic, adLockPessimistic
 
    If Not Len(lblIdT.Caption) = 38 Then
        rsTelefon.AddNew
        rsTelefon!Nam_Id = lblId.Caption
    End If
 
    rsTelefon!Privat = txtPrivat.Text
    rsTelefon!Firma = txtFirma.Text
    rsTelefon!Handy = txtHandy.Text
 
    rsTelefon.Update
 
    lblId.Caption = rsTelefon!Nam_Id
 
    rsTelefon.Close
 
    'Feld Vorname bekommt den Cursor
    tabNamen.Tab = 0
    txtVorname.SetFocus
 
    Exit Sub
 
'Fehlermeldung
fehler:
MsgBox "Es ist ein Fehler aufgetreten:" + vbCr + vbLf + "Nummer: " & Err.Number _
  & " Beschreibung: " & Err.Description, vbExclamation + vbOKOnly
 
End Sub