Visual Basic - numero de registros... recordcount solo cuenta 10

Holas:
el problema es así tengo el siguiente codigoen una consulta... pero el inconveniente es que en el resultado solo me cuenta hasta 10, o sea que si el resultado de la consulta es 11, 12, 15, 20 o cualquiern otro numero mayor a 10 solamente me cuenta 10.! que puede ser... si alguien me puede ayudar.. estare my agradecido como siempre con este foro..!

If optMarca.Value = True Then
Data2.RecordSource = "SELECT Nombres, PriApellido, SecApellido, Ciudad FROM TablaAfiliados WHERE Marcagluc='" & DBCombo1.BoundText & "'"
Data2.Refresh
End If
Label1.Caption = Data2.Recordset.RecordCount

Mira yo trabajo con ADO
y ya probe esta codigo y sin problema

Private Sub cuenta()
Dim rs As New ADODB.Recordset
Set rs = cn.Execute(" select count(PacientePK) as cont From Paciente ")
MsgBox rs!cont
rs.Close
Set rs = Nothing
End Sub