VB 创建MDB，然后将一个MDB中的表复制到新建的MDB

'=======================================================================
    '创建MDB文件，需要先执行【工程 】－ 【引用 】 Microsoft ADO Ext. 2.8 for DDL and......
    Dim cata As New ADOX.Catalog
    cata.Create ("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & AccFullName & "")
    Set cata = Nothing
    '=======================================================================
    
    '=======================================================================
    '将AIS中的表复制到上面建立的MDB文件中
    Set rs = conn.OpenSchema(adSchemaTables)
    While Not rs.EOF
        If rs!table_type = "TABLE" Then
            conn.Execute ("select * into [" & AccFullName & "].[" & rs!table_name & "]  from [" & rs!table_name & "]")
        End If
        rs.MoveNext
    Wend