::)Bueno primero que nada la declaraciones:
Public PasViejo as String, PasNuevo as String
Public Base As ADODB.Connection
Public Ruta As String 'Se entiende de la base
Ahora suponiendo que tengas un boton llamado "Cambiar"
Private Sub Cambiar_Click()
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";Persist Security Info=False;Jet OLEDB:Database Password=PasViejo;Jet OLEDB:New Database Password=PasNuevo"
End Sub
La Verdad no recuerdo
si para Access 97 usas el 4.0 o el 3.51, pero prueba con ambos, la ruta de la base la puedes obtener desde un CommonDialog.
Suerte con tu proyecto!!!!!!!!!!!!!
Y Por cierto se más
especifico cuando solicites ayuda.