[Resolvido] Erro na Pesquisa por cor

Eu tenho um programa aqui de cadastro de presos, me pediram para elaborar uma pesquisa por cor de pele...

dentro do banco de dados "qualificativa" tem a coluna "cutis" que tem cadastrados a cor de cada prisioneiro....

preciso de uma ajuda para elaborar essa pesquisa... fiz uma programação aqui mas ele não está dando certo

gostaria de saber o que esta errado.... ou se alguém poderia me ajudar....

vou deixar abaixo a programação que eu criei:

Private Sub cmdcontar_Click()

Data.RecordSource = "select * from qualificativa where esta='SIM'"

Data.Refresh

Dim subtotal As Currency

subtotal = 0

Dim branca As Currency '1

branca = 0

Dim parda As Currency '2

parda = 0

Dim negra As Currency '3

negra = 0

Dim indigena As Currency '4

indigena = 0

Dim amarela As Currency '5

amarela = 0

While Not Data.Recordset.EOF

If Data.Recordset.Fields("cutis") = "1" Then

branca = branca + 1

ElseIf Data.Recordset.Fields("cutis") = 2 Then

parda = parda + 1

ElseIf Data.Recordset.Fields("cutis") = 3 Then

negra = negra + 1

ElseIf Data.Recordset.Fields("cutis") = 4 Then

indigena = indigena + 1

ElseIf Data.Recordset.Fields("cutis") = 5 Then

amarela = amarela + 1

Else

MsgBox "Nenhum Reeducando com esta cor!", vbExclamation, "Atenção!"

Exit Sub

End If

Data.Recordset.MoveNext

Wend

lbltotal.Caption = "Existem: " & subtotal & " Reeducandos na Unidade"

End Sub

Private Sub Form_Load()

var0b = Conexao(Data, caminho_bd, "qpalzmMZN", False)

End Sub

Private Sub list_Click()

End Sub