[VB6] stampa report access

[vipe]

Ciao a tutti,
ho la necessità di modificare un mio vecchio programma in Visual Basic
6.0 che visualizza report di Access.
Cerco di spiegarmi meglio... ho una routine nel mio programma che apre
un database fatto in access 97 e visualizza i diversi report che
contiene.
Ora devo proteggere tutti i database con una password. Per il
programma in vb non ho problemi ma quando cerco di aprire i report di
access riscontro un anomalia. Prima di aprire il report eseguo una
sorta di collega tabelle, perchè il mio db di access che contiene i
report ha al suo interno tutte le tabelle collegate al db originale
dei dati.
Il codice di collega tabelle funziona ma se vado da access in
"gestione tabelle collegate" sembra che il buon access si perda la
tipologia di oggetto collegato infatti io vedo
--> ? [nome tabella]
prima al posto del ? avevo il simbolo della tabella
questo è il codice che utilizzo...

Set db = objAPP.CurrentDb
For i = 0 To db.TableDefs.Count - 1
Set tblDefRicollegata = db.TableDefs(i)
If tblDefRicollegata.connect <> "" Then 'tabella non di sistema
tblDefRicollegata.connect = ";DATABASE=" &
"C:\database\db.mdb" _ ";pwd=prova;DSN=;"
tblDefRicollegata.RefreshLink
End If
Next i

qualcuno è in grado di aiutarmi?
grazie

[MMarzia]

linguaggio e versione vanno specificati anche nel titolo, come da regolamento


ps: per rendere più leggibile il codice utilizza il tag [*code] ... [*/code] (senza asterischi)