Database Password

  • Thread starter Thread starter Derick
  • Start date Start date
D

Derick

Hi all,

Running the code below in Access 2000 produces a error "No
ISAM found."

What can the problem be?

Thanks

function ChangePassword()

dim db as database
dim tdf as tabledef
set db = currentdb

For Each tdf In db.TableDefs
On Error Resume Next
tdf.Connect = "MS Access;PWD=" &
yournewpassword" ";DATABASE=C:\Path to MDB
YourDatabase.MDB"

tdf.RefreshLink
Next tdf

end function
 
Back
Top