I suspect that the compilation error means you don't have a reference set to
DAO. (neither Access 2000 nor 2002 have the reference set by default).
Go into the VB Editor and select Tools | References from the menu. Assuming
that Microsoft DAO 3.6 Object Library isn't one of the selected ones at the
top of the list, scroll through the list until you find it, and select it.
If you want every database relinked, change
strMsg = "Do you wish to specify a different path for the Access
Tables?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Alternate data source...") =
vbYes Then
strNewPath = fGetMDBName("Please select a new datasource")
Else
strNewPath = vbNullString
End If
to
strNewPath = "G:\yadayadayada"
Note, though, that this code has to be run from within every database.
It should be possible to modify that code so that you can run it external to
each database (i.e.: just select which databases you want changed, and have
the code go at it), but that will involve some programming.