Visual Basic - Ayuda con VB y Acces 97 con password

Hola:
Tengo desde hace tiempo un problema que no he podido resolver, estoy tratando de acceder a una base de access desde VB6 utilizando DAO, ya tengo bastante codigo escrito y trabaja bien, pero lo que no he logrado es abrir la base de datos cuanto ésta tiene un password, mi codigo es:

Public DBGEN As Database \' Apuntador Base Principal

sub Bases ()
Dim rsDatos As Recordset

Set DBGEN = OpenDatabase(\"ptgen.mdb\") \' Trabaja Bien si la Base no tiene Password

Set rsDatos = DBGEN.OpenRecordset(\"SELECT * FROM \" & TBLUSUARIOS & \" WHERE Nombre = \'\" & Nom & \"\'\", dbOpenDynaset)

.....
.....

rsDatos.Close
Set DBGEN = Nothing \' Libera los apuntadores de las bases de datos

end sub


Si pongo esta instrucción me marca password invalido (el password es \'a\')
Set DBGEN = OpenDatabase(\"ptgen.mdb\", True, , \";PWD=a\")

¿Donde puede estar mi problema?

Agradezco si alguien me puede ayudar

Saludos

Gerardo