Private Sub btn_Anlegen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btn_Anlegen.Click
        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
                     & _
                "Data " & _
                  "Source=C:\Users\xx\Desktop\EDV-Inventarliste\EDVInventarlis" & _
                  "e\EDV" & _
          "Inventarliste\EDVInventar.mdb")
 
 
        cn.Open()
        'InsertInto Befehl
        Dim comm As OleDb.OleDbCommand
        comm = cn.CreateCommand
        Dim INSERTString As String = _
        "INSERT INTO " & _
              "Inventar " & _
                 "(Mitarbeiter, E-Mail) " & _
          "VALUES " & _
             "('" & txt_Mitarbeiter.Text & "' , '" & txt_Email.Text & "')"
 
        comm.CommandText = INSERTString
        comm.ExecuteNonQuery()
 
        cn.Close()
 
 
    End Sub