Private Sub cmdSpeichern_Click()
Dim AnwenderNr As Integer
Dim strSQLAs String
Dim strDate as String
 
If IsNull(AnwenderNr) Then
    AnwenderNr = 0
End If
If IsNull(txtEVONr.Text) Or trim$(txtEVONr.Text) = "" Then
     txtEVONr.Text = 0
End If
If IsNull(txtRAM.Text) Or trim$(txtRAM.Text) = "" Then
    txtRAM.Text = 0
End If
If IsNull(txtHDD1.Text) Or trim$(txtHDD1.Text) = "" Then
    txtHDD1.Text = 0
End If
If IsNull(txtHDD2.Text) Or trim$(txtHDD2.Text) = "" Then
 
    txtHDD2.Text = 0
End If
strSQL= "INSERT INTO [INV-Geräte] " & _
        "([Anwender-Nr],Kennzeichen,Typ,[EVO-Nummer],[Bestell-Nr]," & _
        "[Serien-Nr],Speicher,[BUS-System],[MAC-Adresse]," & _
        "[Inst-Datum],HDD1,HDD2,[G-Karte],[CD/DVD], Brenner," &  _       _
        "Lieferant,Bemerkung) " & _
        "VALUES " & _
        "(" & AnwenderNr & "," & _
        "" & "'" & trim$(cmbKennzeichen.Text) & "'," & _
        "" & "'" & trim$(cmbTyp.Text) & "'," & _
        txtEVONr.Text & "," & _
        "" & "'" & trim$(txtBestellNr.Text) & "'," & _
        "" & "'" & trim$(txtSerienNr.Text) & "'," & _
        txtRAM.Text & "," & _
        "" & "'" & trim$(cmbBUS.Text) & "'," & _
        "" & "'" & trim$(txtMAC.Text) & "'," & _
        "#" & Format(strDate, "mm") & "/" & _
        Format(strDate"dd") & "/" & _
        Format(strDate, "YYYY")& "#," & _
        txtHDD1.Text & "," & _
        txtHDD2.Text & "," & _
        "" & "'" & trim$(cmbGrafikkarte.Text) & "'," & _
        "" & "'" & trim$(txtCDDVD.Text) & "'," & _
        "" & "'" & trim$(txtBrenner.Text) & "'," & _
        "" & "'" & trim$(cmbLieferant.Text) & "'," & _
        "" & "'" & trim$(txtBemerkung.Text) & "')"
conn.execute strSQL