Dim cn As New ADODB.Connection
Dim db1Path As String , db2Path As String , strSql As String
db1Path = "c:\db1.mdb"
db2Path = "c:\db2.mdb"
cn.open "Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=" & db1Path
strSql="insert into Table2 [二进制字段名] in " & db2Path & "(select 二进制字段名 Table1 where 条件)"
cn.Execute strSql