Como hacer una consulta en donde solo ingrese el mes y año utilizando el comboBox

tengo problemas par realizar esta consulta este es el código que utilizo:

For por=0 to combo1.listcount-1

vdato=Combo1.List(por)

If vdato=Combo1.List(Combo1.ListIndex()) Then

With Rs

If .State=1 Then .Close

.CursorLocation=adUseclient

.open"Select empleado.codempleado,empleado.nomempleado + space(1) + empleado.apeempleado as Empleados,empleado.cargo,adelanto.fechaadelanto,adelanto.monto From Empleado,Adelanto Where Empleado.codempleado=Adelanto.empleadoadelanto and Month(adelanto.fechaadelanto)='" & vdato & "' AND Year(Adelanto.fechaadelanto)='" & CVDate(Combo2.text) & "'",BD

SET DataGrid1.DataSource=Rs

End With

End If

Next