Visual Basic - ayuda con datagrid!!!

hola a todos nesecito poner los resultados de una busqueda en un datagrid y no se como hacerlo.
la busqueda la hago poniendo el mes y año en sus respectivos combobox y en el boton buscar hago lo sgte:

If Combo1.Text = "" Or Combo2.Text = "" Then
MsgBox "Deve ingresar el Mes y Año", , "Aceptar"
Else
AdoDC1.RecordSource="Select * From camioneta Where Mes=' " & Trim (Combo1.Text) & " ' and Año=' " & Trim(Combo2.Text) & " ' "
If Adodc1.Recordset.EOF = True Then
MsgBox "El nombre no existe", , "aceptar"
Else...................
he aqui donde no se como poner los resultados de la busqueda en en datagrid, si alguien sabe como hacerlo o tienen una forma mas eficiente porfavor haganmelo saber ( si es en codigo mucho mejor)

MUCHAS GRACIAS!!!!

Set DataGrid1.DataSource=ADODC1.Recordset

ALGO ASI TE PODRIA SERVIR

Set rRes = gDb.OpenRecordset(strSQL)
Grid.Cols = rRes.Fields.Count
Grid.Row = 0
For i = 0 To rRes.Fields.Count - 1
Grid.Col = i
Grid = rRes.Fields(i).Name
Next i

Grid.Rows = 2
iFila = 1
Grid.Row = iFila
Do While Not rRes.EOF
For i = 0 To rRes.Fields.Count - 1
Grid.Col = i
If Not IsNull(rRes.Fields(i)) Then Grid = rRes.Fields(i)
If Grid.ColWidth(i) < Len(rRes.Fields(i)) * 120 Then Grid.ColWidth(i) = Len(rRes.Fields(i)) * 120
Next i
iFila = iFila + 1
Grid.Rows = iFila + 1
Grid.Row = iFila
rRes.MoveNext
Loop
Grid.Rows = iFila

El amigo pregunto ¿como se llenaba un DataGrid? y esa fue la respuesta que le di