Crear una Consulta Con Codiciones (=,>,<)

Estimado
Lo que necesito hacer es consultar por la suma del campo "total_pse" del mes POR y desplegarlo en un Label, y el mes lo voy a ingresar desde un text1. Además te envío el código para que lo veas si esta bien o malo y para que me digas que puedo hacer .
Esperando que me puedas ayudar te doy las Gracias de antemano .
y.m.r
Private Sub Cmd_Click()
mivar = 0
If Not Data1.Recordset.EOF Then
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
mivar = mivar + Val(Data1.Recordset.Fields("total_pse"))
Data1.Recordset.MoveNext
Loop
End If
Label1.Caption = mivar
Text1.Text = mivar
End Sub