Visual Basic - ayuda porfavor

hola a todos esto es lo que quiero hacer:
tengo dos combobox, uno con mes y el otro con año
lleno los combo box con un mes y un año:
ejemplo
enero y 2004
al apretar el boon "BUSCAR" en un datagrid me tienen que salir todos los registros correspondientes a ese mes y año
no se como hacer que al encontrar el mes y el año los datos me los muestre en la grilla
esto es lo que tengo en el boton:

Private Sub Buscar_Click()

If Combo1.Text = "" Or Combo2.Text = "" Then
MsgBox "Deve ingresar el nombre del conductor responsable y la fecha (Dia,Mes,Año)", , "Aceptar"
Else
If Adodc1.Recordset.BOF = False Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "Mes='" & Combo1.Text & "'"
Adodc1.Recordset.Find "Año='" & Combo2.Text & "'"
If Adodc1.Recordset.EOF = True Then
MsgBox "El nombre no existe", , "aceptar"
Else

'mostrar los registros correspondientes a ese mes y año

End If
End If
End If
End Sub

Yo creo que lo que te puede pasar, si no te entiendo mal, es que realizas dos find, yo lo que haría es hacerlo en el mismo:

Adodc1.Recordset.Find \"Mes=\'\" & Combo1.Text & \"\' and Año = \'\" & combo2.text & \"\'\"

Espero haberte entendido bien, un saldudo

Yo creo que lo que te puede pasar, si no te entiendo mal, es que realizas dos find, yo lo que haría es hacerlo en el mismo:

Adodc1.Recordset.Find "Mes='" & Combo1.Text & "' and Año = '" & combo2.text & "'"

Espero haberte entendido bien, un saldudo

Seria mejor que tu busqueda la hagas de la siguiente manera:
If Combo1.Text = "" Or Combo2.Text = "" Then
MsgBox "Deve ingresar el nombre del conductor responsable y la fecha (Dia,Mes,Año)", , "Aceptar"
Else
AdoDC.RecordSource="Select * From TuTabla Where Mes=' " & Trim (Combo1.Text) & " ' and Año=' " & Trim(Combo2.Text) & " ' "
If Not Adodc.Recordset.Eof then
...

End If
End If

muchas gracias por su ayuda lo que no se ahora es como hago para que los registros encontrados se muestren en un datagrid
PD: solamente los correspondientes al mes y año que estan en los combobox

una vez encontrado los registros buscados, llenas el DataGrid asi:
Set DataGrid1.DataSource=ADODC.Recordset