求助：关于跨数据库拷贝表

这是我在类模块中做的函数：
''''''''导出指定表到指定的数据库的表中''''''''''''

Public Function ExportTable(SourceDataBaseName As String, SourceTableName As String, DesignationDataBaseName As String, DesignationTableName As String) As Boolean
   
On Error GoTo ProcError
   
    ExportTable = False
   
    If Cnn.State = adStateClosed Then
        Cnn.CursorLocation = adUseClient
        Cnn.Mode = adModeReadWrite
        Cnn.ConnectionString = Me.LinkString
        Cnn.Open Cnn.ConnectionString, Me.UserName, Me.PassWord
        
    End If
   
'    SQL = "insert into openrowset('Microsoft.Jet.OLEDB.4.0','e:\hyh.mdb';'admin';'',Y2Motorh) select * from  Y2系列交流异步电机"
'    Cnn.Execute SQL
   
    SQL = "insert into openrowset('Microsoft.Jet.OLEDB.4.0','" & DesignationDataBaseName & "';'" & Me.UserName & "';'" & Me.PassWord & "'," & DesignationTableName & ")" & _
    "select * from " & SourceTableName
   
    MsgBox SQL
   
    Cnn.Execute SQL   
    ExportTable = True
   
ProcExit:
    Exit Function
   
ProcError:
    MsgBox "错误号：" & Err.Number & vbCrLf & "描  述：" & Err.Description, 48, "导出指定表到指定的数据库的表中"
    Resume ProcExit

End Function

以前只做过查询，好像 是不能写入什么的