OpenRecordset no me trae todos los registros

[ldcaraza]

Hola,

tengo una rutina que extrae datos de una BD access por un SQL. El problema que tengo es que si ejecuto el SQL desde access me regresa 93 registros, pero en VB me regresa sólo uno. El código como lo tengo es el siguiente:

Dim dbsSQL As Database
Dim rsIncidencias As Recordset
Dim arr_incidencias As Variant

Set dbsSQL = CurrentDb

Set rsIncidencias = dbsSQL.OpenRecordset(txt_sql, dbOpenSnapshot, dbReadOnly)
arr_incidencias = rsIncidencias.GetRows()
int_reccount = UBound(arr_incidencias, 2)

rsIncidencias.Close


Inspeccionando la ejecución veo que rsIncidencias.RecordCount es 1

Saludos,