All,

I am trying to setup VBA code to export a query to an excel spreadsheet.  Ultimately, I want to be able to set column widths, freeze the sheet at a specific cell and some other formatting, but for now I am just trying to get the base function working.  I have the following code;

    Dim sql As String
    Dim rs1 As DAO.Recordset
    SQL = "Select * FROM tblQuoteStatus"
    Set rs1 = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)

If rs1.RecordCount = 0 Then
        MsgBox "No Data selected for export", vbInformation + vbOKOnly
        GoTo SubExit
    ElseIf rsl.RecordCount <> 0 Then
        MsgBox "data records exist", vbInformation + vbOKOnly
'        GoTo SubExit
    End If

This last part is a test to see if it pulled any records.  I keep getting errors when doing this.  Error 424 object required.  I've tried expanding the select statement to put in specific fields from the table, but then I get the error expecting more parameters.  

Any help would be appreciated.
Mike