Then it should be something like:

Code:
strSql = "Select * From Payment" _
    & " Where DatePart(yyyy,[Date])=" & cboYear.Text _
    & " and DatePart(mm,[Date])=" & cboMonth.Text
Good luck.