Database Password

[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

 

[Gina]

Try http://support.microsoft.com/default.aspx?scid=kb;en-
us;209805&Product=acc2000