Erro com select

[Guest Galdino]

Pessoal me ajude a contar esse campo ve se vocês entendem

preciso contar quantos campos estão preenchidos o campo é do tipo sim/não no access!

Private Sub cmdconsultar_Click()

Dim inicio As Date

Dim fim As Date

fim = mskfinal.Text

inicio = mskinicio.Text

strsql = "SELECT COUNT(falta) AS Contagem FROM historico where falta =true and codigo=" & frmfaltas.txtcodigo.Text & " and data BETWEEN " & inicio & " AND " & fim & ""

Set rsconsulta = cnn.Execute(strsql)

If rsconsulta.EOF Then

txtres.Text = 0

Else

txtres.Text = rsconsulta("contagem")

End If

Set rsconsulta = Nothing

End Sub