Public Function StrDatum(wert As Date) As String
StrDatum = Format(wert, "\#yyyy\-mm\-dd\#")
End Function

SQLScript = "INSERT INTO " & SQLInsTabelle & " ( " & SQLInsFelder & _
                    " ) VALUES ( " & CStr(U_PersNr) & "," & StrDatum( _
                    U_AbschlDatum) & _
                    ",'" & U_KdNr & "'," & CStr(U_Stueck) & "," & CStr(U_Kust) _
                    & _
                    "," & CStr(U_Faktor) & "," & CStr(U_Punkte) & ")"