LisBox со значениями из базы - VB

Формулировка задачи:

Всем добрый вечер! Решил изучить vb6, но пока дела обстоят не очень. Вообщем нужно сделать список значений из базы mdb в combo или list box'e. Пробовал делать через dbgrid, но там не нашел события, возникающего после навигации по списку(нужно было получить позицию элемента). Проект прикрепил. Буду очень благодарен в решении данного вопроса!!

Решение задачи: «LisBox со значениями из базы»

textual
                            Листинг программы 
                        

                            Sub Poisk()
    DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\Database.accdb"
    conn.Open DSNName
    SQL = "SELECT * FROM Sample WHERE Отчество LIKE '%Степанов%'"
    rs.Open SQL, conn, 3, 3
        Text4.Text = rs.Fields("Фамилия")
End Sub
                        