Заголовок
VB6, Visual Basic 6, ADODB.Recordset, ADODB.Connection, Открыть рекордсет, sql-запрос, Соединение с базой данных, перебор рекордсета, обход рекордсета, значение поля рекордсета
sql - запрос к базе данных
cn - соединение с базой данных (ADODB.connection)
rcd - рекордсет (ADODB.Recordset)


sql = ""
sql = "SELECT * FROM dbTableName"
rcd.Open sql, cn, adOpenStatic

rcd.MoveFirst
While Not rcd.EOF
    MsgBox rcd("TableFieldValue")
    rcd.MoveNext
Wend