OPENDATASOURCEについて

[JO]

下記のソースは同サーバーのDB2なかのテーブルをDB１にコピーするという機能を期待していますが、db.Execute
strSQLの部分で、エラーになってしまいます。
Private Sub Command6_Click()
Dim strConnect As String
Dim strSQL As String
Dim db As New ADODB.Connection
strConnect = "Provider=SQLOLEDB;" & _
"UID=sa;" & _
"PWD=MY_PASSWORD;" & _
"Data Source=A_SERVER;" & _
"DATABASE=MY_DB1"
db.Open strConnect
db.BeginTrans
strSQL = "SELECT * into MY_TABLE " & _
"FROM OPENDATASOURCE('SQLOLEDB'," & _
"'UID=sa;PWD=MY_PASSWORD;Data
Source=A_SERVER').[MY_DB2].dbo.MY_TABLE)"
db.Execute strSQL
db.CommitTrans
db.Close
Set db = Nothing
End Sub
ソースのどこが間違っているか？ご存知の方、ご教授ください。
ちなみに、A_SERVERからB_SERBERにコピーするなら、問題なく、実行ができます。
OS：XP　SP３
SQLServer　2000　SP５
VB６　SP５