vb.net - 保存数据以访问不起作用，尽管没有错误

Question

嘿，我正在尝试使用此代码保存到我的访问数据库，虽然没有错误并且它说数据已保存，但我的访问数据库没有收到新数据。它出什么问题了？

Private Sub savenew()
        Dim conn As New OleDbConnection
        conn = New OleDbConnection
        dbprovider = "Provider=Microsoft.ACE.OLEDB.12.0;"
        dbsource = "Data Source = FULL YUGIOH ACCESS DATABASE.accdb;"
        conn.ConnectionString = dbprovider & dbsource
        Dim reader As OleDbDataReader
        Dim command As OleDbCommand

        Try
            conn.Open()
            Dim query As String
            query = "insert into item(name) values ('" & TextBox4.Text & "')"
            command = New OleDbCommand(query, conn)
            reader = command.ExecuteReader
            MsgBox("data saved")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

（我数据库中的表称为项目，列称为名称。）

标签： vb.net