Private Const QS_MOUSEBUTTON As Long = &H4
Private Const QS_HOTKEY As Long = &H80
Private Const QS_KEY As Long = &H1
Private Const QS_PAINT As Long = &H20
Private Const QS_TIMER As Long = &H10
Private Declare Function GetQueueStatus Lib "user32" (ByVal qsFlags As Long) As Long

Private Function DoEventsEx() As Long

  'DoEventsEx is tested and is believed to be 100% to 800% faster then
  'DoEvents. For more info, search planetsourcecode.com in the VBWorld for:
  'DoEvents evolution

    On Error Resume Next
        DoEventsEx = GetQueueStatus(QS_HOTKEY Or QS_KEY Or QS_MOUSEBUTTON Or QS_PAINT Or QS_TIMER)
        If DoEventsEx <> 0 Then
            DoEvents
        End If

End Function

Public Sub ExportToCSV(ADODBRecordset As ADODB.Recordset, FilePathToExport As String, ShowProgress As ProgressBar)

  Dim iTotalRecords As Long, i As Long, NumberofFields As Long
  Dim Progress As Boolean, TotalRecords As Long

    On Local Error Resume Next    'Some recordsets can be pretty big
        'that's why I used long and not integer

        Open FilePathToExport For Output Access Write As #1
        With ADODBRecordset
            NumberofFields = .Fields.Count - 1   'It is faster to read from
            .MoveFirst                           'memory then executing operation
            'in a loop

            For i = 0 To NumberofFields          'Now add the field names similar
                Print #1, .Fields(i).Name & ","; 'to the ones below
            Next i
            Print #1,                            'Go to next line

            With ShowProgress
                .Min = 0
                .Max = ADODBRecordset.RecordCount
                .Value = 0
            End With 'SHOWPROGRESS

            Do While Not .EOF
                TotalRecords = TotalRecords + 1
                For i = 0 To NumberofFields         'If there is an emty field,
                    If (IsNull(.Fields(i))) Then    'add a , to indicate it is
                        Print #1, ",";        'empty
                      Else '(ISNULL(.FIELDS(I))) = FALSE/0
                        If i = NumberofFields Then
                            Print #1, Chr$(34) & Trim$(CStr(.Fields(i))) & Chr$(34);
                          Else 'NOT I...
                            Print #1, Chr$(34) & Trim$(CStr(.Fields(i))); Chr$(34) & ",";
                        End If
                    End If                  'Putting data under "" will not
                Next i                      'confuse the reader of the file
                DoEventsEx                  'between Dhaka, Bangladesh as two
                Print #1,                   'fields or as one field .
                .MoveNext                   'Chr(34) is doublequote
                ShowProgress.Value = ShowProgress.Value + 1
            Loop
        End With 'ADODBRECORDSET
        Close #1

End Sub

Public Sub ExportToExcel(ADODBRecordset As ADODB.Recordset, ShowProgress As ProgressBar)

  Dim i As Integer, iRowIndex As Integer, avRows As Variant
  Dim iColIndex As Integer, iRecordCount As Integer, objTemp As Object
  Dim iFieldCount As Integer, xCELver As Byte, [U]objExcel As Excel.Application[/U]this is the offending line.
                                                  
    On Local Error Resume Next

        With ShowProgress
            .Min = 0
            .Max = ADODBRecordset.RecordCount
            .Value = 0
        End With 'SHOWPROGRESS

        With ADODBRecordset
            .MoveFirst
            avRows = .GetRows()                       'Read all the records
            iRecordCount = UBound(avRows, 2) + 1      'in an array and
            iFieldCount = UBound(avRows, 1) + 1       'determine how many
            'fields in an array
            Set objExcel = CreateObject("Excel.Application")
            objExcel.Visible = True
            objExcel.Workbooks.Add

            'Ensure Excel remains visible if we change to active sheet
            Set objTemp = objExcel
            If xCELver >= 8 Then
                Set objExcel = objExcel.ActiveSheet
            End If

            iRowIndex = 1
            iColIndex = 1
            'Place Name of the fields
            For iColIndex = 1 To iFieldCount             'As coloumn headers with
                With objExcel.Cells(iRowIndex, iColIndex) 'a better font then Sans
                    .Value = ADODBRecordset.Fields(iColIndex - 1).Name 'Serif
                    With .Font
                        .Name = "Tahoma"
                        .Bold = True
                        .Size = 9
                    End With '.FONT
                End With 'OBJEXCEL.CELLS(IROWINDEX,
            Next iColIndex

        End With 'ADODBRECORDSET

        With objExcel                                   'Go Baby GO! Add DATA!
            For iRowIndex = 2 To iRecordCount + 1       'BEAUTIFUL DATA!
                For iColIndex = 1 To iFieldCount        'MY DATA!
                    .Cells(iRowIndex, iColIndex) = avRows(iColIndex - 1, iRowIndex - 2)
                    ShowProgress.Value = iRowIndex
                    DoEventsEx
                Next iColIndex
            Next iRowIndex
            .Cells(1, 1).CurrentRegion.EntireColumn.AutoFit 'Autofit for good looks
        End With 'OBJEXCEL

End Sub

Public Sub ExportToHTML(ADODBRecordset As ADODB.Recordset, FilePathToExport As String, TitleOfHTML As String, ShowProgress As ProgressBar)

  Dim TotalRecords As Long, i As Integer, Progress As Boolean
  Dim NumberofFields As Long

    On Local Error Resume Next

        Open FilePathToExport For Output As #1

        Print #1, "<HTML><HEAD><TITLE> " & TitleOfHTML & " </TITLE></HEAD>"
        Print #1, "<BODY BGCOLOR=""FFFFFF"">"
        Print #1, "<TABLE BGCOLOR=""00AAFF"" WIDTH=""100%"">"
        Print #1, "<TR><TD>"
        Print #1, "<FONT FACE=ARIAL SIZE+=3><B>" & TitleOfHTML & "</B></font></td></tr>"
        Print #1, "<TR>"
        'First add all the usual
        With ADODBRecordset                      'HTML Tags to the ASCII
            .MoveFirst                           'File (with color).
            For i = 0 To .Fields.Count - 1
                Print #1, "<TD BGCOLOR=CCCCC>" 'Now add the titles to the
                Print #1, "<B>"; .Fields(i).Name; "</B>" 'file. Make sure they
                Print #1, "</TD>"           'Stand out.
            Next i
            Print #1, "</TR>"

            .MoveFirst

            With ShowProgress
                .Min = 0
                .Max = ADODBRecordset.RecordCount
                .Value = 0
            End With 'SHOWPROGRESS

            Do While Not .EOF
                Print #1, "<TR>"  'Add database records in HTML Format
                For i = 0 To .Fields.Count - 1
                    Print #1, "<TD BGCOLOR=CCCCC>"
                      Print #1, .Fields(i); "&nbsp" 'I am having problem
                    Print #1, "</TD>"               'appending null values
                    DoEventsEx                      'Mail your suggestion
                Next i                              'to [email]elv15@toughguy.net[/email]
                Print #1, "</TR>"
                .MoveNext
                ShowProgress.Value = ShowProgress.Value + 1
            Loop

        End With 'ADODBRECORDSET

        Print #1, "</TABLE></BODY></HTML>" 'Complete the ASCII HTML
        Close #1                           'File

End Sub

Dim iFieldCount As Integer, xCELver As Byte, objExcel As Excel.Application