Как обратиться к списку ListBox, чтобы каждая запись в нем была как отдельный элемент? - VB

Private myRst As ADODB.Recordset, myConn As ADODB.Connection
'
Private Sub Form_Load()
    Dim stSQL As String
    Dim i As Integer, cnt As Integer
    
    List1.Clear
    List1.AddItem 'Иванов'
    List1.AddItem 'Петров'
    List1.AddItem 'Сидоров'
    
    stSQL = 'SELECT * From SOTRUDNIKI Where '
    For i = 0 To List1.ListCount - 1
        stSQL = stSQL + '[Фамилия] = '' + List1.List(i) + '' Or '
    Next
    
    stSQL = Left$(stSQL, Len(stSQL) - 4)
    ' Debug.Print stSQL
    
    Set myConn = New ADODB.Connection
    myConn.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sample.mdb;'
 
    myConn.Open
    
    Set myRst = New ADODB.Recordset
    With myRst
        Set .ActiveConnection = myConn
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open stSQL
        Debug.Print 'Выборка с фамилиями, указанными в листбоксе:'
        cnt = 1
        While Not .EOF
            Debug.Print vbCrLf & 'Запись ' & cnt & ':'
            Debug.Print '=========='
            For i = 0 To .Fields.Count - 1
                Debug.Print .Fields(i).Name & ' = ' & .Fields(i).Value
            Next
            .MoveNext
            cnt = cnt + 1
        Wend
    End With
    
End Sub
'
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If myRst.State = adStateOpen Then myRst.Close
    Set myRst = Nothing
    If myConn.State = adStateOpen Then myConn.Close
    Set myConn = Nothing
    Set Form1 = Nothing
End Sub