Selamlar. Bu zannediyorun istediğiniz

Function sendExcelL()
Dim Sql As String
Dim vtcon As Object
Dim vtrst As Object

Set vtcon = Application.CurrentProject.Connection:
Set vtrst = CreateObject("ADODB.Recordset"):
vtrst.CursorLocation = adUseClient:
Sql = "select alan1 as benimverdiğimisim1,alan2 as benimverdiğimisim2 from table where ...."
vtrst.Open SQL, vtcon, adOpenStatic, adLockBatchOptimistic
DoCmd.OutputTo acOutputQuery, SQL, "MicrosoftExcel(*.xls)", "", False, "", 0
Set vtcon = Nothing
Set vtrst = Nothing
End Function