Option Explicit
Private Const GWL_STYLE As Long = -16&
Private Const GWL_EXSTYLE = -20&
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_BORDER As Long = &H800000

#If VBA7 Then
Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As LongPtr
Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long
#Else
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hwnd As Long) As Long
#End If

Private Sub CheckBox1_Click()

    If CheckBox1 = True Then
        CheckBox1.Caption = "ACTIVE"
        CheckBox2.Enabled = False
    Else
        CheckBox1.Caption = "ALL ACTIVE STATUS"
        CheckBox2.Enabled = True
    End If

    UserForm_Initialize
End Sub

Private Sub CheckBox2_Click()

    If CheckBox2 = True Then
        CheckBox2.Caption = "IN ACTIVE"
        CheckBox1.Enabled = False
    Else
        CheckBox2.Caption = "ALL IN ACTIVE STATUS"
        CheckBox1.Enabled = True
    End If

    UserForm_Initialize
End Sub

' BUTTON "CLOSE FORM"
Sub CommandButton5_Click()
    iFlag = False
    Unload Me
End Sub

Private Sub ListBox1_Click()
    Dim i           As Long
    i = Me.ListBox1.ListIndex

    If Me.ListBox1.List(Me.ListBox1.ListIndex, 0) <> "" Then
        i = ListBox1.ListIndex + 2
        Application.GoTo Sheet1.Range("A" & i & ":AL" & i)
    End If

End Sub

Private Sub UserForm_Initialize()
    Dim ihWnd, hStyle

    If Val(Application.Version) < 9 Then
        ihWnd = FindWindow("ThunderXFrame", Me.Caption)
    Else
        ihWnd = FindWindow("ThunderDFrame", Me.Caption)
    End If

    hStyle = GetWindowLong(ihWnd, -16&)
    SetWindowLong ihWnd, -16&, hStyle And Not &H80000

    ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim SQL As String, ColName As String
    Dim i As Long, j As Long, numCol As Long
    On Error GoTo Whoa
    Application.ScreenUpdating = False
    Sheet1.Cells.ClearContents

    Dim dbPath      As String
    dbPath = "D:\TEST.accdb"

    Dim cnn         As ADODB.Connection
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath

    If CheckBox1 = True Then
        SQL = "SELECT * FROM CREWALLDATA WHERE STATUS = 'Active';"
    ElseIf CheckBox2 = True Then
        SQL = "SELECT * FROM CREWALLDATA WHERE STATUS = 'InActive';"
    Else
        SQL = "SELECT * FROM CREWALLDATA "
    End If

    Dim rs          As ADODB.Recordset
    Set rs = New ADODB.Recordset

    rs.Open SQL, cnn

    If rs.EOF And rs.BOF Then
        rs.Close
        cnn.Close
        Set rs = Nothing
        Set cnn = Nothing
        Application.ScreenUpdating = True
        
        MsgBox "There are no records in the recordset!", vbCritical, "No Records"
        Exit Sub
    End If

    With Sheet1

        For i = 0 To rs.Fields.Count - 1
            .Cells(1, i + 1) = rs.Fields(i).Name
        Next

        .Range("A2").CopyFromRecordset rs
        .Cells.Columns.AutoFit
    End With

    rs.MoveFirst
    i = 0

    With Me.ListBox1
        .ColumnWidths = "50,20,105,165,195,55,45,85,185,75,65,85,75,65,125,85,105,125,95,85,105,125,105,105,95,185,95,105,125,75,125,125,125,95,125,550,95,95"
        .ColumnCount = rs.Fields.Count
        .Column = rs.GetRows

        Do Until rs.EOF
            .AddItem
            numCol = rs.Fields.Count

            For j = 0 To numCol
                ColName = rs.Fields(j).Name
                .List(i, j) = rs.Fields(ColName).Value
            Next j

            i = i + 1
            rs.MoveNext
        Loop

    End With

LetsContinue:
    Application.ScreenUpdating = True
    On Error Resume Next
    rs.Close
    Set rs = Nothing
    cnn.Close
    Set cnn = Nothing
    On Error GoTo 0
    Exit Sub
Whoa:
    MsgBox "Error Description:  " & Err.Description & vbCrLf & _
            "Error at line:     " & Erl & vbCrLf & _
            "Error Number:      " & Err.Number
    Resume LetsContinue
    ' """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
End Sub