用VB编写的Access数据库的导入和导出是如何实现的？谁能给我一个详细的解答？

Question

Dim dbSource As Database
    Dim wspSource As Workspace    ''工作区
    Dim intTableLoop As Integer
    Dim intTablesCount As Integer    ''表数计数器
    
    Set wspSource = DBEngine.Workspaces(0)
    Set dbSource = wspSource.OpenDataBase(FileName)    ''打开数据库
    intTablesCount = dbSource.TableDefs.Count    ''获得表数目
    
    intTablesCount = dbSource.TableDefs.Count    ''获得表数目
    
    ''获得表名及其中文标题
    rintTablesCount = 0
    For intTableLoop = 0 To intTablesCount - 1
      '...
    Next intTableLoop
    
    dbSource.Close    ''关闭数据库
    Set dbSource = Nothing
    wspSource.Close    ''关闭工作区
    Set wspSource = Nothing

Answer 1

谢谢楼上的朋友，我要的是导入导出表中的记录！麻烦您再给我整理以下。