OpenRecordset no me trae todos los registros

[ldcaraza]

Gracias Kruzado... lo logré solucionar cambiando el código a:

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

Set dbsSQL = CurrentDb

Set rsIncidencias = dbsSQL.OpenRecordset(txt_sql, dbOpenSnapshot, dbReadOnly)

rsIncidencias.MoveLast
int_reccount = rsIncidencias.RecordCount
rsIncidencias.MoveFirst

arr_incidencias = rsIncidencias.GetRows(int_reccount)
int_reccount = UBound(arr_incidencias, 2)