Занесение в переменную значения из ячейки в БД

Допустим есть база данных bd.mdb, в ней есть таблица список в этой таблице например поля: код, фамилия, имя;
1 Иванов Иван
2 Петров Петр
я обьявляю переменную например типа вариант....
Private sub main()
Dim str as Variant
' как мне теперь это переменной присвоить например значения из
' поля ИМЯ, например Петр
end sub