Visual studio 2010 我无法在Ms.Access 2007中插入新记录

我不熟悉visual basic。 我写这篇文章是为了在VisualBasic2010之前将一条新记录插入我的ms access数据库。这是我的密码

导入System.Data.OleDb 公开课表格9

Dim provider As String
Dim dataFile As String
Dim connString As String
Dim myConnection As OleDbConnection = New OleDbConnection

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = C:\Users\AMEN\Documents\Railway.accdb"
    'Change the following to your access database location
    dataFile = "C:\Users\AMEN\Documents\Railway.accdb"
    connString = provider & dataFile
    myConnection.ConnectionString = connString

    myConnection.Open()
    Dim str As String
    str = "insert into Table2 ([P_Name], [Age], [Phone], [Train_Name], [Seat_No], [Berth]) values (?, ?, ?, ?, ?,?)"
    Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
    cmd.Parameters.Add(New OleDbParameter("P_Name", CType(TextBox1.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("Age", CType(TextBox2.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("Phone", CType(TextBox3.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("Train_Name", CType(TextBox4.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("Seat_No", CType(TextBox5.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("Berth", CType(TextBox6.Text, String)))
    Try
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        myConnection.Close()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()

        MsgBox("Your Ticket was booked successfully ! ")

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

End Sub

末级

---

当我执行这个代码时。它给了我一个连接错误。打开。上面说。Open不是一个有效的名称。请帮帮我

我以前也犯过类似的错误。我发现，首先打开另一个Access数据库非常有用。dim accessApp set accessApp=createObjectAccess.Application accessApp.visible=False accessApp.OpenCurrentDataBaseC:\path.accdb accessApp.Run MyLink不要反复重复使用同一连接对象。这不是它们的用途。看见