7,732
社区成员




Public Sub test()
Dim strSQL As String
Dim Cnn As New ADODB.Connection
Set Cnn = CurrentProject.Connection
strSQL = " insert into 表名(字段1,字段2,字段3) values(1,2,3)"
Cnn.Execute strSQL
End Sub
insert into 表名(字段1,字段2,字段3)
values (1,2,3)