VB6 - ADOX - ACCESS

[AB]

Hi,

I need help

My gold is making DB Access 2000 changes using VB6

So far so good, until the day that stop working, for reasons that i d'ont
know.

Here is my code:

Private Sub cmdUsingAdox_Click()
Dim cat As New ADOX.Catalog

cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='DB_A.mdb';Jet " & _
"OLEDBatabase Password=1234"

cat.Views.Refresh

Set cat = Nothing
End Sub

The VB6 "crash" with one inespered error and turn off when read the line:
cat.Views.Refresh

The DB, that i call: DB_A.mdb open with Access2000 and VB6 to.
Either VB6 as Access, i can working well, eg: update, insert, delete records

i try, with the mencioned code:
- changing DB name, do not work
- repare and compile the DB, do not work
- another DB, works fine
- reinstal Office 2000, do not work
- instal Office update's, do not work

I hope somebody can help me.

Thanks,
AB

 

[Susan V]

what ereror do you get?