Excel SQL og problem med optionbutton

Hej

Jeg har i en Excel projektmappe kode der skal hente data fra Access vha SQL.
Jeg kan desværre ikke tilrette koden så den fungerer med Ja/Nej felt i Access. Er der en der kan hjælpe?

vh Steen

Sub ListAktive()
   
    Dim rsData As ADODB.Recordset
    Dim szConnect As String
    Dim szSQL As String
    Dim c As Variant
    Dim iBox As String
    Dim strSQL As String
    Dim sPath As String
   
    sPath = ActiveWorkbook.Path & "\"
   
    ' Create the connection string.
    szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & sPath & "gps.mdb;"

    szSQL = "SELECT * FROM LData WHERE [Aktive] = 'True'"
       
    Set rsData = New ADODB.Recordset
    rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

    If Not rsData.EOF Then
      listen = TransposeDim(rsData.GetRows)
      UserForm1.Show
    Else
        MsgBox "Ingen fundet", vbCritical
        UserForm1.ListBox1.Clear
    End If
   
    Set rsData = Nothing

End Sub