尝试通过vb.net将记录添加到访问数据库时出现问题

Question

我正在尝试通过Visual Basic将记录添加到Microsoft Access数据库中的表。

这是我目前正在使用的代码:(在子内）

    Dim OleDbConstring As String = My.Settings.CMDataBaseConnectionString & ";"
    Dim Con As OleDbConnection = New OleDbConnection(OleDbConstring)
    Dim Cmd As New OleDbCommand
    MsgBox("Adding?")
    Cmd.Connection = Con
    Cmd.CommandText = "INSERT INTO Users (Username, [Password], IsAdmin, TeacherID) VALUES ('" &
        NewUsername.Text & "', '" &
        NewPassword.Text & "', " &
        NewIsAdmin.Checked().ToString & ", " &
        NewTeacher.SelectedValue & ")"
    Con.Open()
    Cmd.ExecuteNonQuery()
    Con.Close()

没有抛出错误，程序根本没有停止，我可以看到消息框，所以我知道代码正在运行。但是，每次都没有对数据库进行任何更改。我检查了字段数据类型，一切都是应该的。

该方案是用户选择用户，用户名（变为TeacherID），密码，如果他们是管理员，则打勾。当他们点击按钮时，该代码就会运行。

也; 我知道我应该使用参数来避免SQL字符串注入，我只是这样编写它以确保不正确的参数编码（等）不会导致问题