Open new database

[peljo via AccessMonster.com]

I am creating a new database and i am trying to export some tables to this
database.I get the error named Could not find installable ISAM.Could yo help
me with my error ?
below are my functions

Call ANewDB("c:\BE\Init.mdb")
Dim wsp As DAO.Workspace
Set wsp = DBEngine.Workspaces(0)
Dim strPassword As String
strPassword = "secret"
Dim dbs As DAO.Database

Set dbs = wsp.OpenDatabase("C:\BE\Init.mdb", False, False, False)
DoCmd.TransferDatabase acExport, "Microsoft Access", ("C:\be\Init.mdb"),
acTable, "products", "products1"
DoCmd.TransferDatabase acExport, "Microsoft Access", ("C:\be\Init.mdb"),
acTable, "constants", "constants1"
Set dbs = Nothing

End Sub

Function ANewDB(tName As String)
'*******************************************
Dim wsp As Workspace, db As Database
Dim db2 As Database
Set db = CurrentDb
Set wsp = DBEngine.Workspaces(0)
Set db2 = wsp.CreateDatabase(tName, dbLangGeneral)
db2.Close
End Function

 

[Alex Dybenko]

Hi,
try to use docmd.CopyObject

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com