Yes it raises the same error.
Anyway, I gave up ADO, it doesn't work in this pc.
I made it nice with DAO!! :
Public Function InitConnect() As Boolean
On Error GoTo ErrHandler
Dim dbCurrent As DAO.Database
Dim qdf As DAO.queryDef
Dim rst As DAO.Recordset
ServerAddress =...