Dim db as database
Set db = Workspaces(0).OpenDatabase(app.path & "\biblio.mdb")
' db.execute "SELECT tbl.fields INTO
' [dbms type;DATABASE=path].[unqualified filename] FROM [table or tables]
db.Execute "SELECT * INTO [dBase III;DATABASE=C:\My Documents].[testb]" & _
" FROM [Authors]"
Set db = Workspaces(0).OpenDatabase(app.path & "\biblio.mdb")
' db.execute "SELECT tbl.fields INTO
' [dbms type;DATABASE=path].[unqualified filename] FROM [table or tables]
db.Execute "SELECT * INTO [dBase III;DATABASE=C:\My Documents].[testb]" & _
" FROM [Authors]"
sql = "select * Into [Excel 8.0;database= C:\My Documents].Customers From Customers.DefaultExt = *.XLS"
sql = "select * Into [Paradox 4.X;database=C:\My Documents].Customers From Customers.DefaultExt = *.DB"....