Visual Basic - Problemas para obtener el recordcount

Estoy trabajando con ADO y tengo como cursores de bloqueo:

rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

pero intento obtener el recordcount y no me da el nro de registros que posee el recorset.

Uhm.. yo esos parametros que indicas no los utilizo y me funciona bien

Con un Control Adodc :
Ado1.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & Principal.HostP & ";" _
& "DATABASE=sistelopezpuerta;" _
& "UID=" & Principal.UsuarioP & ";" _
& "PWD=" & Principal.ClaveP & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

Ado1.RecordSource = "select * from Compras Where IdFactura =" & CInt(labelId.Caption) 'CInt(IdFactura.Text)
Ado1.Refresh
Ado1.Recordset.MoveFirst
MsgBox Ado1.Recordset.RecordCount

Cuando conecto a MySql hago lo mismo. Antes utilizaba esos parametros pero algunas cosas a veces no me funcionaban..