Visual Basic - Problemas con ADODB.Recordset

Hola, soy nuevo usando conexiones ADO y estoy realizando un proyecto en el cual conecto mi sistema de Visual Basic con una base de datos en SQL SERVER, la conexion la realizo por medio de "Con As New adodb.Connection" y me conecto asi"

Public Const ConnectionString = "TRP"
con.open connectioString

TRP es una conexion ODBC que yo cree, no se si este bien por que me deja utilizar dos ADODB.recorset's pero no un tercero
(set rs = con.execute (strSQL) ), al tratar de abrir un tercero me marca GENERAL NETWORK ERROR. CHECK YOUR NETWORK DOCUMENTATION.

Que hago para poder usar mas ADODB.Recordsets??????????

Gracias

Oye realmente te recomiendo utilices conexion nativa para que asi no tengas que estar creando el dsn en cada equipo que instales la aplicacion.
Anexo estas lineas para que las uses

Dim strSql As String
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset

Set cn = New ADODB.Connection

cn.Open "Provider=msdaora;" & _
"Data Source=ELSIDDELTNSNAMES.ORA;" & _
"User Id=ELUSUARIO;" & _
"Password=ELPASSWORD"

strsql = "Select * from xTabla"
rst.Open strsql,cn,adOpenDynamic,adLockOptimistic

Despues que hagas todo cierras el recordset y lo liberas.

rst.close:set rst = nothing

Gracias por responderme, me gustaria hacerte una pregunta acerca de tu respuesta.

Estoy utilizando la autentificacion del LOG IN de WINDOWS NT y no el PASSWORD y USERNAME de SQLSERVER, Que pongo en User ID=ELUSUARIO;PASSWORD=ELPASSWORD?

que version de ado estás usando? recomiendo a 2.5

Uso 2.8, voy a seguir tu consejo.

Gracias