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

SELECT Da_te,Na_me, Phone FROM Prv WHERE (Da_te = Date())

SELECT TOP 1 Da_te FROM Prv WHERE Da_te > Date()

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\Nap212_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
        conn.Close()

        'Получаем ближайшего именинника
        cmd = New OleDb.OleDbCommand
        cmd.CommandText = "SELECT Da_te,Na_me, Phone FROM Prv WHERE Da_te = (SELECT MIN(Da_te) FROM Prv WHERE Da_te > Date())"
        cmd.Connection = conn
        conn.Open()
        dr = cmd.ExecuteReader()
        If dr.Read() Then
            Label8.Text = dr.Item("Da_te")
            Label9.Text = dr.Item("Na_me")
            Label10.Text = dr.Item("Phone")
        End If
        conn.Close()
        cmd.Dispose()
        dr.Close()

    End Sub
End Class