Status E-fail

[christophe_lardinois]

When I access a table in a Sybase Database through a recordset, an error occurs and return to me "error status E-Fail" and lose the connection.


Public AdoConnection As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim SQlExec as string

Set AdoConnection = New ADODB.Connection
AdoConnection.ConnectionString = "PROVIDER=MSDASQL;DSN=Infoteam;UID=;PWD=;"
AdoConnection.CursorLocation = adUseClient
AdoConnection.Open

Set Rs = New ADODB.Recordset
SQlExec = "SELECT * FROM adresse"
Rs.Open SQlExec, AdoConnection, adOpenStatic, adLockReadOnly, adCmdText

In fact it work for few tables and the error occurs in some tables.
Could you help me
Thanks