ник: s-control
Private Sub excelRun_Click()
Dim db As Database
Dim xl As Excel.Application
Set db = CurrentDb
db.QueryDefs("excelDOM ").sql = "SELECT tDOM.* FROM tDOM ORDER BY tDOM.ID_RAJ;"
DoCmd.OutputTo acOutputQuery, "excelDOM", acFormatXLS, "C:\excelDOM.xls", True
Set xl = CreateObject("Excel.Application")
xl.Application.ActiveWorkbook
xl.Cells.Select
xl.Cells.EntireColumn.AutoFit
xl.Range("A1").Select
db.close
Set db=nothing
'
End Sub
'Обрати внимание поправил твой код.
Объвляешь переменную db и забываешь про неё, смысл её тогда...? 
Удачи!