Private Sub btGetEvenList_Click()
    Dim iField As Variant, DB_Data() As Variant
    OrderID = 2636
    Call CreateConnection
        qSTR = GetSql_Query("ЗаказИнфо. Журнал событий")
        qSTR = Replace(qSTR, "#ORDER_ID#", OrderID)
                
        With RS
            .CursorType = adOpenStatic
            .LockType = adLockOptimistic
            .Open qSTR, CN
               If Not .EOF Then
                ' Заполняем
                    DB_Data = ArrayConvertBase0to1(TransposeDim(RS.GetRows))
                    LBX_EvenList.ColumnCount = UBound(DB_Data, 2)
                    LBX_EvenList.List = DB_Data
                    
                    ' Исправляем дату
                    With LBX_EvenList
                        For i = 0 To UBound(.List) - 1
                            .List(i, 0) = Format(.List(i, 0), "HH:MM:SS - DD.MM.YYYY")
                        Next i
                    End With
                End If
            .Close
        End With
ExitSub:
    Call TerminateConnection
    Call CreateListBoxHeader(LBX_EvenList, LBX_HEADER, Split("Время;Событие;Пользователь;Путь к программе;Ошибка", ";"))
End Sub

Public Sub CreateListBoxHeader(MainLBX As MSForms.ListBox, HeaderLBX As MSForms.ListBox, arrHeaders)
    Dim i As Integer
            ' make column count match
        With HeaderLBX
            .ColumnCount = MainLBX.ColumnCount
            .ColumnWidths = MainLBX.ColumnWidths
            
            ' add header elements
            .Clear
            .AddItem
            
            For i = 0 To UBound(arrHeaders)
                .List(0, i) = arrHeaders(i)
            Next i
            
            
            ' make it pretty
            MainLBX.ZOrder (1)
            .ZOrder (0)
            .SpecialEffect = fmSpecialEffectFlat
            .BackColor = RGB(200, 200, 200)
            .Height = 10
    
            ' align header to MainLBX (should be done last!)
            .Width = MainLBX.Width
            .Left = MainLBX.Left
            .Top = MainLBX.Top - (.Height - 1)
            
        End With
End Sub