Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
                         & _
                    "Data " & _
                      "Source=C:\Users\xx\Desktop\Seriennummerverwaltung\Serie" & _
                      "nummerverwaltung\Seriennummerverwaltung\EDVInventar222." & _
                      "db")
 
 
        cn.Open()
        'InsertInto Befehl
        Dim comm As OleDb.OleDbCommand
        comm = cn.CreateCommand
        Dim INSERTString As String = _
        "INSERT INTO " & _
              "tblArtikelTyp " & _
                 "(ArtikelTyp, Hersteller, Beschreibung) " & _
          "VALUES " & _
             "('" & cb_Artikel.Text & "' , '" & cb_Hersteller.Text & "' , '" & _
             txt_Beschreibung.Text & "')"
 
        comm.CommandText = INSERTString
        comm.ExecuteNonQuery()
 
 
        INSERTString = "Beispiel" _
        "INSERT INTO " & _
              "tblArtikel " & _
                 "(MitarbeiterID, ArtikelTypID, Seriennummer, defekt," & _
                 "Abnahme_Beschaffungsdatum) " & _
          "VALUES " & _
             "('" & 16 & "' , '" & ?? & "' , '" & txt_Serial.Text & "' , '" & _
             keinKreuz & "' , '" & DateTimePicker1.Text & "')"
 
 
        cn.Close()
 
 MsgBox("Der Artikel wurde hinzugefügt!")
        'txt_Mitarbeiter.Text = ""
        'txt_Email.Text = ""
        'txt_Mitarbeiter.Focus()
        'txt_Mitarbeiter.SelectAll()
 
        'End If