VB.net通过ADO.NET向ACCESS中增加记录，运行后没反应！！！！

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mpath As String = "F:\11.accdb"
        Dim mcnstr As String = "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & mpath
        Dim mtbl As String = "表1"
        Dim mcn As New OleDbConnection(mcnstr)
        Dim sql As String = "select * from " & mtbl
        Dim da As New OleDbDataAdapter(sql, mcn)
        Dim ds As New DataSet
        da.Fill(ds)
        Dim dr As DataRow = ds.Tables(0).NewRow
        Dim pa(3) As String
        pa(0) = "1001"
        pa(1) = "李明"
        pa(2) = "21"
        pa(3) = "扯蛋"
        For i As Integer = 0 To 3
            dr(i) = pa(i)
        Next
        ds.Tables(0).Rows.Add(dr)
        ds.AcceptChanges()
        da.Update(ds.Tables(0))

        MsgBox("成功！")
    End Sub --------------------编程问答--------------------   ds.Tables(0).Rows.Add(dr)
  ds.AcceptChanges() '这一行是不能要的
  da.Update(ds.Tables(0))


除此之外，DA的INSERTCOMMAND没有指定

补充：.NET技术 ,  VB.NET