Private Sub SpeichernAdresse()
On Error GoTo fehler
Dim strSQL As String
Dim rsNew2 As ADODB.Recordset
 
    Set rsNew2 = New ADODB.Recordset
    strSQL = "SELECT * FROM Adressen_Stamm WHERE Elid = '" + lblId2.Caption + _
      "'"
    rsNew2.Open strSQL, cn, adOpenDynamic, adLockPessimistic
 
    If Not Len(lblId2.Caption) = 38 Then
        rsNew2.AddNew
        rsNew2!Elid = lblId.Caption
    End If
 
    rsNew2.Fields!Adresszeile1 = txtAdresszeile1.Text
    rsNew2.Fields!Adresszeile2 = txtAdresszeile2.Text
    rsNew2.Fields!Land = cmbLand.Text
    rsNew2.Fields!PLZ = txtPLZ.Text
    rsNew2.Fields!Ort = txtOrt.Text
 
    rsNew2.Update
    rsNew2.Close
 
    Exit Sub
 
fehler:
    If cn.Errors.Count > 0 Then
        Call ADO_Error
    Else
        MsgBox "Es ist ein Fehler in der Funktion ""Adressen Speichern""" & _
          "aufgetreten!" & vbCrLf & _
        Err.Number & Err.Description, vbCritical + vbOKOnly
    End If
    Me.MousePointer = vbDefault
End Sub