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]"