[Resolvido] Run-time error '13' typemismatch

Pessoal eu montei um programa para algumas penitenciarias, e agora eles me pediram para elaborar uma pesquisa por condenação,

elaborei a pesquisa mas quando clico para pesquisar esta dando um erro... mas não estou conseguindo encontrar o erro....

Agradeceria muito se alguém me ajudasse, vou colocar o código abaixo:

Private Sub cmdir_Click()

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

Data.Refresh

Dim condenado As String

Dim atual As Currency

Dim a, b, c, d, e, f As Currency

Dim total As Currency

total = 0

a = 0

b = 0

c = 0

d = 0

e = 0

f = 0

g = 0

h = 0

While Not Data.Recordset.EOF

If Data.Recordset.Fields("condenado") Then

condenado = Year(Data.Recordset.Fields("condenado"))

condenado = atual - condenado

If condenado >= 0 And condenado <= 4 Then

a = a + 1

ElseIf condenado >= 5 And condenado <= 8 Then

b = b + 1

ElseIf condenado >= 9 And condenado <= 15 Then

c = c + 1

ElseIf condenado >= 16 And condenado <= 20 Then

d = d + 1

ElseIf condenado >= 21 And condenado <= 30 Then

e = e + 1

ElseIf condenado >= 31 And condenado <= 50 Then

f = f + 1

ElseIf condenado >= 51 And condenado <= 100 Then

g = g + 1

ElseIf idade >= 100 Then

h = h + 1

End If

End If

Data.Recordset.MoveNext

Wend

List1.AddItem a & " Reeducandos condenados entre 0 e 4 anos"

List1.AddItem b & " Reeducandos condenados entre 5 e 8 anos"

List1.AddItem c & " Reeducandos condenados entre 9 e 15 anos"

List1.AddItem d & " Reeducandos condenados entre 16 e 20 anos"

List1.AddItem e & " Reeducandos condenados entre 21 e 30 anos"

List1.AddItem f & " Reeducandos condenados entre 31 e 50 anos"

List1.AddItem g & " Reeducandos condenados entre 51 e 100 anos"

List1.AddItem Format(h, "00") & " Reeducandos condenados mais de 100 anos"

total = a + b + c + d + e + f + g + h

List1.AddItem ""

List1.AddItem total & " Reeducandos Cadastrados"

End Sub

Private Sub Form_Load()

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

End Sub

Private Sub List1_Click()

End Sub

Agradeço desde já a todos!

Thiago Caires

Adm. Redes Microsoft