Option Explicit
Dim rs As DAO.Recordset

Private Sub flexqs_Click()
With flexqs

MsgBox .TextMatrix(0, flexqs.Col)
'.SelectionMode = flexSelectionByRow
End With
End Sub

Private Sub Form_Load()

     Set rs = LogDB.OpenRecordset("select  * from QSO where year(date_time) = 2019")
With flexqs
.Redraw = False
    .FixedCols = 0
    .FormatString = "<DateTime " & Space(20) & "|<Call " & Space(10) & "| Mode" & _
      "|< MHz "

    
Do While Not rs.EOF


   .AddItem rs.fields("date_time") & vbTab & rs.fields("callsign") _
     & vbTab & rs.fields("Mode") & vbTab & rs.fields("Band"), 1
   rs.MoveNext


Loop
''  .Row = rs.RecordCount - 1
Caption = rs.RecordCount - 1
.Redraw = True
End With

End Sub

SQLString = "SELECT *"
SQLString = SQLString & " From QSO"
SQLString = SQLString & " WHERE date_time In"
SQLString = SQLString & "("
SQLString = SQLString & "   SELECT TOP " & x & " Qs.date_time"
SQLString = SQLString & "      FROM ["
SQLString = SQLString & "    SELECT TOP " & y & " *"
SQLString = SQLString & "      From QSO"
SQLString = SQLString & "            ORDER BY date_time"
SQLString = SQLString & "        ]. AS Qs"
SQLString = SQLString & "       ORDER BY Qs.date_time DESC"
SQLString = SQLString & "      )"
SQLString = SQLString & "ORDER BY date_time;"