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