cmdText = "INSERT INTO mitarbeiter (" & _
  "prename,surname,username,userpass,telephone,cellphone,email,emailuser,email" & _
  "ass) VALUES " & _
    "('" + SQLExpr(txtPrename) + "','" + SQLExpr(txtSurname) + "'," & _
    "'" + SQLExpr(txtUserName) + "','" + SQLExpr(txtUserPass) + "'," & _
    "'" + SQLExpr(txtTel) + "','" + SQLExpr(txtCellphone) + "'," & _
    "'" + SQLExpr(txtEmail) + "','" + SQLExpr(txtEKonto) + "'," & _
    "'" + SQLExpr(txtEPass) + "')"
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    Call Datenverbindung
 
    'Verbindung öffnen
    conn.Open Datenbank
    rs.CursorLocation = adUseClient
    rs.Open cmdText, conn, adOpenStatic, adLockOptimistic
 
    'Hier soll nun gefragt werden, ob der Datensatz angelegt wurde 
    If ??? Then
        MsgBox "Datensatz wurde erfolgreich angelegt!", vbOKOnly + vbInformation
    Else
        MsgBox "Fehler beim anlegen des Datensatzes!", vbOKOnly + vbCritical
    End If