Para que funcione con Access 2000, debes tener la última actualización de VB6 (SP5) En propiedad Connect debe aparecer esta opción "Access 2000;"
Esto funciona en DAO
Define estas variables en la forma, como variables de módulo.
Dim mdbConsulta As Database
Dim mrsHist As Recordset
Coloca esto en Form_Load()
Set mdbConsulta = DBEngine.OpenDatabase(strDBFilename, False, False, ";Pwd=MyPwd" )
Set mrsHist = mdbConsulta.OpenRecordset(strSqlQry, dbOpenDynaset)
Set datHist.Recordset = mrsHist
Cámbialo de acuerdo a tus variables. datHist es el control data
Esto funciona con Access 97 y 2000,
