Visual Basic - Conexión VB6 a Oracle no regresa datos

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: strCadena = "Provider=OraOLEDB.Oracle.1;Password=mipassword;User 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.

Hola Omar
Bueno yo nunca he realizado una conexión con Oracle, asumo que tendrá el mismo principio de cuando conecto Mysql, SQL Server, Access, por tanto prueba con esto a ver si te funciona, esto es lo que utilizo para interactuar con las bases de datos mencionadas. No olvides agregar la referencia "Microsoft ActiveX Data Objects 2.8 o superior"

Private Sub Form_Load()
Dim cn As New ADODB.Connection, Rs As New ADODB.Recordset, sSql As String
cn.Open = "Provider=OraOLEDB.Oracle.1;Password=mipassword;User ID=miusuario;Data Source=miservicio;Persist Security Info=True"
Rs.ActiveConnection = cn
Rs.CursorLocation = adUseClient
sSql = "SELECT * from mitabla"
Rs.Open sSql
If Not Rs.EOF Then
MsgBox Rs(0), vbInformation, "Resultado"
End If
Rs.Close
End Sub

Gracias estimado Charles. Te comento que ya probé la conexión y aún así me sigue regresando 0 registros. El día de hoy pregunté a personal de sistemas de mi empresa y me comentaron que el servicio miservicio de oracle apunta a un servidor de produccion y a otros 2 clones. Lo que se me ocurre es que no este haciendo una replicación de manera correcta en algún servidor clon, aunque sigo con la duda porque TOAD si regresa datos y visual no. De hecho ya probé con otras consultas y los resultados que arrojan toad y visual son correctos, el problema es únicamente con esta tabla.