Public Sub WatchRecordsetInExcel(rst As ADODB.Recordset)
    Dim objExcel
    Dim objWorkbook
    Dim objWorksheet
    Dim i As Long
    
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Add
    Set objWorksheet = objWorkbook.Worksheets("Sheet1")
    
    objExcel.visible = True
    
    With objWorksheet
        For i = 0 To rst.Fields.Count - 1
            objWorksheet.Range("A1").Offset(0, i).value = rst.Fields(i).Name
        Next i
        objWorksheet.Range("A2").CopyFromRecordset rst
    End With
    
    Set objWorksheet = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
End Sub