Private Sub neueintrag(firma As String, text As String, region As String, bearbeiter As String, eingang As String, aufgabe As String, status1 As String, termin As String, status2 As String, bemerkung As String, user, atermin As String)
On Error Resume Next
 
Dim datPrimaryRS As ADODB.Recordset
Dim test As String
        
    Set datPrimaryRS = New Recordset
    datPrimaryRS.CursorType = adOpenKeyset
    datPrimaryRS.LockType = adLockOptimistic
 
    datPrimaryRS.Open "Projekte", dfwConn, , , adCmdTable
    
    datPrimaryRS.AddNew
    
    datPrimaryRS!firma = firma
    datPrimaryRS!projekt_text = text
    datPrimaryRS!Anfrage_Verkaufsregion = region
    datPrimaryRS!Bearbeiter_AZ = bearbeiter
    
    If eingang = "" Then
        datPrimaryRS!Eingang_Anfrage = Null
    Else
        datPrimaryRS!Eingang_Anfrage = eingang
    End If
    
    datPrimaryRS!Aufgabenstellung = aufgabe
    datPrimaryRS!Projektumfang = umfang
    datPrimaryRS!Status_Bearbeitung = status1
    
    If termin = "" Then
        datPrimaryRS!termin = Null
    Else
        datPrimaryRS!termin = termin
    End If
    
    datPrimaryRS!Status_Vertrieb = status2
    datPrimaryRS!bemerkung = bemerkung
    datPrimaryRS!bearbeiter = user
    
    If atermin = "" Then
        datPrimaryRS!Ausgangstermin = Null
    Else
        datPrimaryRS!Ausgangstermin = atermin
    End If
        
    datPrimaryRS.Update
    MsgBox datPrimaryRS!Projekt_NO
    datPrimaryRS.close
End Sub