Как вставить запись из поля БД в Label на форме в VB6?

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

Как вставить запись из поля БД в Label на форме в VB6? Надо зайти в поле B_Day и если в одной из записей есть запись соответствующая сегодняшней дате, то в Label1 должно быть "ОК" иначе "Not OK". Если "ОК" в Label2 должна появиться запись из поля Name, соответствующая этой дате и в Label3 запись из поля Number_Phone.
Поле B_Day в формате(Дата,Время),Name (Текстовый)Number_Phone (Текстовый).
БД создана в Access Office 2010.
Имя БД: Database3.accdb
Путь к БД: C:\Users\User\Desktop\Nap3\Database3.accdb
Пожалуйста полный код, включая подключение к БД.

Решение задачи: «Как вставить запись из поля БД в Label на форме в VB6?»

textual
                            Листинг программы 
                        
                            Dim Conn As ADODB.Connection, RS As New ADODB.Recordset