Visual Basic - DataGrid a excel

como puedo pasar los resultados que muestro en un data grid a excel, los datos que muestro en los data grid son consultas que hago a la base de datos.
gracias.

Es importante que actives la Referencia "Microsoft Excel 9.0 Object Library", si el DataGrid esta ligado a un ADODC hacemos el recorrido de la siguiente manera:
Private Sub cmdToExcell_Click()
'Gimme the workbook
Dim wkbNew As Excel.Workbook
'Gimme the worksheet for the workbook
Dim wkbSheet As Excel.Worksheet
'Gimme the range for the worksheet
Dim Rng As Excel.Range
If Dir("C:\DataGrid.xls") <> "" Then 'Si Existe el Archivo
Kill "C:\DataGrid.xls" 'Lo Eliminamos
End If
'Let's create the workbook kid!
Set wkbNew = Workbooks.Add
wkbNew.SaveAs "C:\DataGrid.xls"
'Add a WorkPage
Set wkbSheet = wkbNew.Worksheets(1)
'Set the values in the range
Set Rng = wkbSheet.Range("A1:" + Chr(DataGrid1.Columns.Count + 64) + CStr(Adodc1.Recordset.RecordCount))
For I = 0 To Adodc1.Recordset.RecordCount - 1
For j = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Col = j
DataGrid1.Row = I
Rng.Range(Chr(j + 1 + 64) + CStr(I + 1)) = DataGrid1.Text
Next j
Adodc1.Recordset.MoveNext
Next I
'Close and save the file
wkbNew.Close True
'Si queremos Abrir el Archivo
Dim MyValue
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & "C:\DataGrid.xls", vbMaximizedFocus)
End Sub

muchas gracias la verdad habia postergado esté asunto por que no sabia como relizarlo y ahora lo entiendo bien, muchas gracias por la ayuda.

Por que cuando el data grid tiene muchos datos al bajarlos a excel se cae y dice.
error '6148' en tiempo de ejecución.
número de fila incorrecto.

Recuerda como son las Filas de la Hoja de Excel A,B,C...Z,AA,AB, asi sucesivamente verifica el rango:
Set Rng = wkbSheet.Range("A1:" + Chr(DataGrid1.Columns.Count + 64) + CStr(Adodc1.Recordset.RecordCount))

Gracias!!!