如何用代码导入另一个 mde 数据库中的表？急！！！

再次求助 各位 老师：

下面是我在网上找到的链接另一个 AAAAAA.mde 数据库表的代码，经运行没问题。那么如果是要用代码导入 AAAAAA.mde 数据库中的表，其代码又该怎样写呢？谢谢！！！

Private Sub Ljsjk_Table()
    Dim rs, conn
    Set rs = CreateObject("ADODB.Recordset")
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "provider=microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=111111;data source=" & CurrentProject.Path & "\AAAAAA.mde"
    Set rs = conn.OpenSchema(adSchemaTables)
    Do While Not rs.EOF
       Call Link2MDB(CurrentProject.Path & "\AAAAAA.mde", 111111, rs!TABLE_NAME, rs!TABLE_NAME)
       rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Sub
Sub Link2MDB(sDBPath$, pwd$, sTable$, dTable$)
    On Error Resume Next
    Dim tbldef As TableDef
    Set tbldef = CurrentDb.CreateTableDef(dTable)
    tbldef.Connect = "MS Access;PWD=" & pwd & ";Database=" & sDBPath
    tbldef.SourceTableName = sTable
    CurrentDb.TableDefs.Append tbldef
End Sub