仔细检查一下data1的属性,是否为为只读

解决方案 »

  1.   

    你换一种写法吧
    例子如下:
    dim strConn as String
    Dim adoConn As New ADODB.Connection
    dim strSql as String strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"adoConn.Open strConn
    strSQL = "insert into Table_name(a,b,c,d) values(" & _
             "'" & Text1.Text & "'," & _
            "'" & Text2.Text & "','" & _
           "'" & Text3.Text & "','" & _
           "'" & Text4.Text & "')"
      
    adoConn.Execute strSQL