linking with password (Access 2000)

[pilgrimswake]

Can somebody show me how can i rewrite my function for linking tables so that it links to a database,having a password "secret"?


Public Function LinkAllTables(DBName)
'link all user tables in source database
Dim FrontDB As DAO.Database, BackDB As DAO.Database
Dim Tbl As DAO.TableDef, Lnk As DAO.TableDef
Set FrontDB = CurrentDb
Set BackDB = OpenDatabase(DBName)

For Each Tbl In BackDB.TableDefs
If Tbl.Attributes = 0 Then
Set Lnk = FrontDB.CreateTableDef( _
Name:=Tbl.Name)
Lnk.SourceTableName = Tbl.Name
Lnk.Connect = ";DATABASE=" & BackDB.Name
FrontDB.TableDefs.Append Lnk
End If
Next
DoCmd.Beep
End Function



i tried to write
Set BackDB = OpenDatabase(DBName,Secret), but i have been shown an error "data type conversion error"

[Francois]

Change the line :
Set BackDB = OpenDatabase(DBName)
to
Set BackDB = OpenDatabase(DBName, False, False, "MS Access;PWD=secret")