Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
Dim conn As New OleDb.OleDbConnection
        conn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\user\Desktop\Nap2_VB.NET\B_Day.accdb;Persist Security Info=False;")
        Dim cmd As OleDb.OleDbCommand
        cmd = New OleDb.OleDbCommand
        cmd.CommandText = "SELECT Da_te,Na_me, Phone FROM Prv WHERE (Da_te = Date())" 
       cmd.Connection = conn
        conn.Open()
        Dim dr As System.Data.OleDb.OleDbDataReader
        dr = cmd.ExecuteReader()
        If dr.Read() Then
            Label1.Text = "Сегодня День Рождения"
            Label2.Text = dr.Item("Na_me")
            Label7.Text = dr.Item("Phone")
 
        End If
 
        cmd.Dispose()
        dr.Close()
        conn.Close()
 
        End Sub
 
    Private Sub Label5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        End
    End Sub