Visual Basic - recordcount = -1 URGENTE PLEAS

Hola nose porque me da -1 siempre el recordcount, probe con las dos respuestas de mas abajo y nada, por favor alguien me de el codigo para resolverlo. URGENTE PLEASEEEEEE!!!!!!

Msconsulta = "select codigo from mitabla"
Snpe3001.Open Source:=Trim(MsConsulta), ActiveConnection:=bd_personal, CursorType:=adOpenKeyset

If Not Snpe3001.EOF Then
Snpe3001.MoveLast
Snpe3001.MoveFirst
a = Snpe3001.RecordCount
End If

bueno, si el RecordCout siempre da -1, puede ser por varias razones, una es el tipo de Cursor, no puede ser Dinamico, y otro que me ha pasado es que la conexión a la base de datos la estes haciendo por ODBC, entonces no te retorna el valor del RecordCount, si quieres escribeme un mail, explicandome detalladamente el problema y todo el código desde la conexión y procuraré ayudarte si me es posible