[VB6] db access non riconosce

[fux_vr]

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??

[Brainjar]

Per il percorso il problema, probabilmente lo risolvi sostituendo

Set DBChiusura = OpenDatabase(App.Path + "" + "chiusura.mdb")

con

Set DBChiusura = OpenDatabase(App.Path + "\chiusura.mdb")

Per il formato, dovrebbe andare in porto con la modifica di cui
sopra.

Ciao,

[fux_vr]

mi dice sempre formato non riconosciuto. sembra che non mi legga il DB. me lo dava anche prima con un comando data1 ho risolto selezionando access2000 nelle proprieta'.
ma nel codice come faccio??
helppp

[Brainjar]

Dovresti, però, controllare che App.Path non contenga già "\", come
nel caso di "C:\". Quindi, per essere a prova di bug, il codice da
sostituire sarebbe :

Set DBChiusura = OpenDatabase(IIf(Right(App.Path,1) = "\", App.Path + "chiusura.mdb", App.Path + "\chiusura.mdb"))

Ciao,

[Brainjar]

Dovresti impostare il default di accesso del DBEngine,
prima di eseguire la OpenDatabase :

DBEngine.DefaultType = dbUseODBC
Set DBChiusura = OpenDatabase(IIf(Right(App.Path,1) = "\", App.Path + "chiusura.mdb", App.Path + "\chiusura.mdb"))

Ciao,