VB操作access同时在两张表中添加数据怎么实现

我们可以实现一次执行多条数据库操作，但是请注意代码实际上是一条一条进行的，执行一条后再执行下一条语句,多条语句是不能同时执行的。例如下面代码一次执行两个操作：

Private Sub Command1_Click()
Dim cn As New ADODB.Connection,cnStr As String
cnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source='\\192.168.1.100\Shared\TestDB.mdb';"
cn.Open cnStr
'一次执行两条操作
With cn
    .Excute "insert into t1(id,col1) values('001','abc');"
    .Excute "insert into t2(id,c_id) values('001','056');"
End With
End Sub

请注意由于一次执行多条操作，有可能发生其中某条操作失败的情况，题主可以在上述代码中添加出错处理过程进行相应处置。如果需要全部操作要么全部成功、要么全部失败，不得出现中间状态，那么上面代码就需要加入事务处理，题主可参阅本人以往给出的相关知道回答链接：

https://zhidao.baidu.com/question/243896375633680804