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

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

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

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

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

                            Dim Rec As Recordset
Set Rec = DB.Execute("SELECT Name, Number_Phone FROM [ГЁГ¬Гї ГІГ*ГЎГ«ГЁГ¶Г»] WHERE B_Day=" & Format(Date, "\#MM\/dd\/yyyy\#"))
If Rec.RecordCount Then
    Label1.Caption = "OK": Label2.Caption = Rec.Fields("Name"): Label3.Caption = Rec.Fields("Number_Phone")
Else
    Label1.Caption = "NOT OK": Label2.Caption = vbNullString: Label3.Caption = vbNullString
End If
                        