可以使用以下代码来解决此问题:
Dim cn As New ADODB.Connection Dim cmd As New ADODB.Command
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;" cn.Open
Set cmd.ActiveConnection = cn cmd.CommandText = "INSERT INTO mytable (field1, field2) VALUES ('value1', 'value2')" cmd.Execute , , adCmdText
cn.Close
这里使用了一个名为“cn”的ADODB.Connection对象来打开一个新的连接。然后,我们创建了一个ADODB.Command对象,并将其ActiveConnection属性设置为cn。我们还设置了命令文本,以便在执行时将其用作SQL查询。最后,我们在cmd.Execute语句中执行命令,并在完毕后关闭连接。