Winform / Access-插入查询未执行

Question

我正在尝试学习VB.net数据库插入技术。我的查询在查询生成器上运行，但是在实际代码中，它没有更新数据库，没有任何错误。但是使用相同的设置 select 查询可以正常工作。

使用： VB.NET/ 赢表格/ MS Access数据库

查询生成器： Click To View The Image

代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim CompanyDB As String = combo_company.SelectedValue.ToString
    Dim CurrentDir As String = Directory.GetCurrentDirectory()
    Dim dbpath As String = CurrentDir & "\database\" & CompanyDB

    If System.IO.File.Exists(dbpath) Then

        Dim Con_company As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\database\" & CompanyDB & ";Persist Security Info=True"

        Using cn_company As New OleDbConnection(Con_company)
            Using cmd As New OleDbCommand("INSERT INTO test_table (test1, test2, test3) VALUES ('TEST1', 'TEST2', 'TEST3')", cn_company)

                cn_company.Open()
                cmd.ExecuteNonQuery()
                cn_company.Close()
            End Using
        End Using

    Else
        MsgBox(combo_company.Text & " Database Not Exists")
        Exit Sub
    End If
End Sub

想了解我的代码有什么问题，我们将为您提供任何帮助