ho un DB in access ho fatto questo codice

Dim Indice As Integer
Indice = 0
Dim DBChiusura As Database 'dichiaro il db
Dim RS As Recordset 'dichiaro il recordset
Set DBChiusura = OpenDatabase(App.Path + "" + "chiusura.mdb")
Set RS = DBChiusura.OpenRecordset("chiusura", dbOpenTable)
RS.MoveFirst 'punta al primo recod
Do While RS.EOF = False
Cassa.List(Indice) = RS!NomeCampoDB
Indice = Indice + 1
RS.MoveNext
Loop

ma quando controllo il codice mi dice formato DB non riconosciuto e il
percordo del DB perche??

DB di access è fatto con office Xp e uno VB6 forse devo aggiornare
librerie Dao?? se si da dove scarico?

in pratica attaraverso codice si puo lavorare con un DB di access xp??