Как мне получить цикл через мою таблицу access 97

---

Когда я нажимаю кнопку с включенной буквой, скажем M, я не могу прокрутить свою таблицу, чтобы получить результаты для отображения в виде списка. Я использую VB6 и Access 97

Что я уже пробовал:

Многочисленные часы поиска в интернете и различные способы кодирования, из предыдущих приложений, которые я сделал. Это мое первое использование строки подключения. Код кнопки выглядит следующим образом:

Private Sub cmd_SelectByLetter_Click(Index As Integer)
    Dim Kga_RS As Recordset
    Dim sql, myLetter As String
    Dim i As Long 'use long if the database has a huge amount of records; other wise use integer
    ' clear the listview
    lstv_AllKgaMembers.ListItems.Clear
    Set Kga_RS = New Recordset
'    Kga_RS.LockType = adLockOptimistic
'    Kga_RS.CursorType = adOpenKeyset
    myLetter = Chr(CLng(Index) + 65)
    sql = "SELECT * FROM [tbl_KGA_MEMBER_DETAILS] WHERE [F_Name] LIKE '" & myLetter _
        & "*' ORDER BY [F_Name] ASC"
    Kga_RS.Open sql, dbCon, , adLockOptimistic
    i = 0
    With lstv_AllKgaMembers
        Do Until Kga_RS.EOF
            FullName = Kga_RS!F_Name & " " & Kga_RS!L_Name
            ' "i" will be used to point to the row number for the items being added
            ' to the listview increment the i each time it loops past it
            i = i + 1
            ' now write the records from the recordset to the listview fields
            .ListItems.Add , , Kga_RS!KgaNo 'control id
            ' you can short cut this, but it is important not to do so check for blank fields,
            ' otherwise you'll get errors when there is a field that is blank (for example, if there is no address)
            If Not FullName = "" Then .ListItems(i).ListSubItems.Add , , FullName Else .ListItems(i).ListSubItems.Add , , ""
            Kga_RS.MoveNext
        Loop
    End With
    Kga_RS.Close
    cmd_SelectAllMembers.Enabled = True
    cmd_ClearAll.Visible = True
End Sub

---