Visual Basic - no me funciona el recorset

Hola amigos, tengo un problema con una aplicación en vb 6.0. Estoy haciendo una consulta en donde me devuelve solo un registro, siendo que en la base de datos tengo mas de uno (5). Cuando quiero ver cuantos registros me trae el recorcount me sale (-1)

este es el codigo:

SQL = "select * from BoletasHonorarios"
Set asd = cnnAcc.Execute(SQL)

La conexión ya la hice pero no me trae todos los registros.

GRACIAS.

En este tipo de conexiones cuando haces un SELECT debes de usar OPENRECORDSET, cuando usas EXECUTE, es para ejecutar sentencias como INSERT, UPDATE, DELETE, asi que cambia:

Set asd = cnnAcc.Execute(SQL)

por:

Set asd = cnnAcc.OpenRecordset(SQL, dbOpenSnapshot)

Ojala te sirva la solucion, saludos.....