VB支持SQL语言的SELECT ... INTO语句，这使得你可以将一种数据库轻松地转换为另一种格式，也可以在同一种格式的数据库中进行转换。下面我们以将.MDB格式转换为Excel形式为例。 
    首先，打开.MDB文件。如 
    Dim dbSource As Database 
     
    Set dbSource = OpenDatabase("MY.MDB") 
    然后使用SELECT ... INTO语句转换文件。 
    dbSource.Execute("SELECT * INTO my IN 'c:\documents\xldata.xls' 'EXCEL 5.0;' FROM table1") 
    这里，IN子句后面是转换后的数据库文件名，'EXCEL 5.0;'表示Excel 5.0/95格式，也可以是其他VB支持的格式。 
    SELECT ... INTO建立新的表或数据库，而如果要将数据追加到已经存在的数据库中，可以使用INSERT ... INTO语句。 
<END>     
    