Private Sub btn_Anlegen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btn_Anlegen.Click
 
        If IsNumeric(txt_Mitarbeiter.Text) = True Then
            MsgBox("Bitte geben Sie keine Zahlen ein!")
            txt_Mitarbeiter.Focus()
            txt_Mitarbeiter.SelectAll()
        Else
 
            Dim cn As New OleDb.OleDbConnection( _
              "Provider=Microsoft.Jet.OLEDB.4.0;" _
                         & _
                    "Data " & _
                      "Source=C:\Users\xx\Desktop\Seriennummerverwaltung\Serie" & _
                      "nummerverwaltung\Seriennummerverwaltung\xx.mdb")
 
cn.Open()
            'InsertInto Befehl
            Dim comm As OleDb.OleDbCommand
            comm = cn.CreateCommand
            Dim INSERTString As String = _
            "INSERT INTO " & _
                  "tblMitarbeiter " & _
                     "(Mitarbeiter, EMail) " & _
              "VALUES " & _
                 "('" & txt_Mitarbeiter.Text & "' , '" & txt_Email.Text & "')"
 
            comm.CommandText = INSERTString
            comm.ExecuteNonQuery()
 
            cn.Close()
 
            MsgBox("Der Mitarbeiter wurde hinzugefügt!")
            txt_Mitarbeiter.Text = ""
            txt_Email.Text = ""
            txt_Mitarbeiter.Focus()
            txt_Mitarbeiter.SelectAll()
 
        End If
End Sub