Link to Password Protected Tables

[Potter]

I am trying to use Deb Ashish's code found here
http://www.mvps.org/access/tables/tbl0009.htm along with Ken getz code here
http://www.mvps.org/access/tables/tbl0009.htm to allow my users to reconnect
the back end tables via a button and to be able to move it. However the code
won't let me link to password protectect DB. As you can see I modifed the
connection strings however I am concered to code needs the db password
specified somewhere else and wondered if someone can look at the full code
and take a look for me

'backend database exists
'putting it here since we could have
'tables from multiple sources
Set dbLink = DBEngine(0).OpenDatabase(strDBPath, False, False,
";pwd=Morpheu5")
'check to see if the table is present in dbLink
strTbl = fParseTable(collTbls(i))
If fIsRemoteTable(dbLink, strTbl) Then
'everything's ok, reconnect
Set tdfLocal = dbCurr.TableDefs(strTbl)
With tdfLocal
.Connect = "Database=" & strDBPath & ";pwd=Morpheu5"
.RefreshLink
collTbls.Remove (.Name)
End With

Many Many Thanks

James

 

[Tom van Stiphout]

On Mon, 14 Jan 2008 23:35:01 -0800, Potter

For the last clause of the Connect string try:
Database Password=Morpheu5

-Tom.