Visual Basic - Como pasar el resultado de un query a Excel?

HOla. una pregunta:

Como pasar el resultado de un query a Excel??
Necesito que todo el resultado de una consulta que puedo visualizar en un Grid se pase a una hoja de Excel tal cual...
Agradeceria que me ayudaras..
hasta pronto
Saludos..

Es muy sencillo
1 adiciona la libreria microsoft excell en references
2 pon este codigo en un botón
Dim objExcel As excel.Application

Set objExcel = New excel.Application
objExcel.Workbooks.Add
For fila = 1 To 10
For columna = 1 To 4
objExcel.Cells(fila, columna) = fila & "," & columna
Next
Next

objExcel.Visible = True