Error 0x80004005 VB6 Access using ADO   

I have a project in VB6 that opens Access 97 database to create tabledefs and transfer data.
It has been tested in Windows XP SP2 + MDAC 2.7 successfull. I need to install it in Windows Vista.
I can create a connection to database and open it sucessfully, but when I try to open a Recordset
referencing a tabledef I get the 0x80004005 error, 'Error in method ~ of object ~'.

Following the code I used to open the connection and the recordset:
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxxxx;"

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "xxxxxxx", cnn, adOpenDynamic, adLockOptimistic, adCmdTableDirect

The object computer have MsAccess 2k and MsAccess 2k7, and of course MDAC >2.7
I have installed Microsoft Jet Engine SP3, Jet 2.5 3.5 Support, Jet 3.5 Support and loaded Jet Registry all
as solutions in Microsoft answers to this issue.

I can't get further information due to LastDLLError returns 0.

Can anyone help me, please?

Thanks

date: Wed, 2 Apr 2008 16:28:26 +0200   author:   Albert