用ADO,不要用Adodc
'引用ADO("工程"->"引用"->Microsoft ActiveX Data Objects 2.X Library)
'可以这样满足你的要求:如果有一个事务回滚,那么其他的事务也要回滚,以保持数据的一致性
Private Sub Command1_Click()
Dim cn1 As ADODB.Connection,cn2 As ADODB.Connection
cn1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登录名;Password=密码;Initial Catalog=数据库1;Data Source=Sql服务器别名"