往aa。mdb数据库里的ss表的x列添加text1里的内容
Dim conn As New ADODB.Connection
Private Sub form_load()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\aa.mdb;", "admin"
Command1.Caption = "保存"
End Sub
Private Sub command1_click()
conn.Execute "insert into ss (x) values ('" & Text1.Text & "')"
End Sub
这个我也不会 也在找这个答案呢