Hola a todos. Soy nuevo por aquí. Actualmente estoy desarrollando una pequeña aplicación para mi empresa y
quisiera pedirles de su apoyo para saber porque razón cuando hago mi conexión a Oracle no me trae datos, ya sea por ADO o por el component ADODC al hacer las consultas no regresa ningun registro, lo curioso es que no me muestra error alguno. La tabla (mitabla) que tengo tienen 137 registros en total, los cuales al momento de consultar en TOAD (usando los mismos datos de acceso que en la conexión desde vb) si aparecen pero cuando hago la consulta con el recordset o en el datagrid por medio del ADODC no me regresa dato alguno.
Esta es mi conexión:

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCadena As String
strCadena = "Provider=OraOLEDB.Oracle.1;Password=mipassword;Us er ID=miusuario;Data Source=miservicio;Persist Security Info=True"
cn.ConnectionString = strCadena
cn.Open
strSQL = "SELECT * from mitabla"
Set rs = New Recordset
With rs
.Source = "" 'Inicialización de la variable
'Configuación de parametros para realizar la consulta
.Source = strSQL
.ActiveConnection = cn
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockReadOnly 'Bloqueo del registro solo lectura
End With

rs.Open Options:=adCmdText 'Ejecución de la consulta
Debug.Print "CONEXION ORACLE = " & cn.State & " --- REGISTROS " & rs.RecordCount


---Esta es la configuracion de miservicio en el tnsnames de oracle---

miservicio=
(DESCRIPTION_LIST=
(DESCRIPTION=
(ADDRESS=(PROTOCOL=tcp)(HOST=server1)(PORT=1530))
(CONNECT_DATA=
(SERVICE_NAME=miservicio)
(INSTANCE_NAME=miservicio1)
)
)
(DESCRIPTION=
(ADDRESS=(PROTOCOL=tcp)(HOST=server2)(PORT=1530))
(CONNECT_DATA=
(SERVICE_NAME=miservicio)
(INSTANCE_NAME=misercivio2)
)
)
(DESCRIPTION=
(ADDRESS=(PROTOCOL=tcp)(HOST=server3)(PORT=1530))
(CONNECT_DATA=
(SERVICE_NAME=miservicio)
(INSTANCE_NAME=miservicio3)
)
)
)

Espero esta información sea suficiente y les agradezco el apoyo que me puedan brindar.