Заголовок
VB6, Visual Basic 6, Получить значение поля (колонки) текущей строки рекордсета (ADODB.Recordset)
rcd - рекордсет (ADODB.Recordset)
UM - имя поля (колонки), значение которого нужно получить
0 - индекс поля (колонки), значение которого нужно получить
cn - соединение с базой данных (ADODB.Connection)



sq = "SELECT TOP 1 UM FROM r_Prods
rcd.Open sq, cn, adOpenStatic

MsgBox rcd!UM        ......(Вариант 1)
MsgBox rcd(0).Value        ......(Вариант 2)