Dim cn As New OleDb.OleDbConnection( _
  "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=C:\Users\xx\Desktop\EDV-Inventarliste\EDVInventarliste\EDV" & _
          "Inventarliste\EDVInventar.mdb")
  cn.Open()
  'InsertInto Befehl
  Dim comm As New OleDb.OleDbCommand
  Dim INSERTString As String = _
    "INSERT INTO " & _
    "Inventar " & _
    "(Mitarbeiter, E-Mail) " & _
    "VALUES " & _
    "('" & txt_Mitarbeiter.Text & "' , '" & txt_Email.Text & "')"
    comm.CommandText = INSERTString
    comm.ExecuteNonQuery()
    cn.Close()