如何在SQL语句中，操作两上数据库，都带有密码，数据库是ACCESS200

[zqonline]

Dim cnn As ADODB.Connection
Dim res As ADODB.Recordset
Dim strCnn, strTemp As String
OpenMdb.Action = 1
If OpenMdb.FileName = "" Then MsgBox "你没有选择数据库！", 48, "提示": Exit Sub
If OpenMdb.FileName = pubMdbpath Then MsgBox "同一个数据库！", 48, "提示": Exit Sub
Set cnn = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pubMdbpath & ";Jet Oledb:database password=chrdwhdhxt"
cnn.Open strCnn
strTemp = "insert into " & OpenMdb.FileName & ".tusers select * from tusers"
cnn.Execute strTemp