Public Class Form1
		Private Sub ExecuteQuery(sql As String, action As Action(Of OleDbDataReader))
			Using conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\user\Desktop\Nap212_VB.NET\B_Day.accdb;Persist Security Info=False;")
				Using cmd = conn.CreateCommand()
					cmd.CommandText = sql
					cmd.CommandType = CommandType.Text
					Using reader = cmd.ExecuteReader()
						If reader IsNot Nothing Then
							action(reader)
							reader.Close()
						End If
					End Using
				End Using
				conn.Close()
			End Using
		End Sub
		Private Sub Form1_Load(sender As System.Object, e As System.EventArgs)

			ExecuteQuery("SELECT Da_te,Na_me, Phone FROM Prv WHERE (Da_te = Date())", Function(p) 
				Label1.Text = "Сегодня День Рождения"
				Label2.Text = p.Item("Na_me")
				Label7.Text = p.Item("Phone") 
			End Function)
			ExecuteQuery("SELECT Da_te,Na_me, Phone FROM Prv WHERE Da_te = (SELECT MIN(Da_te) FROM Prv WHERE Da_te > Date())", Function(p) 
				Label8.Text = p.Item("Da_te")
				Label9.Text = p.Item("Na_me")
				Label10.Text = p.Item("Phone") 
			End Function)
		End Sub
		Public Sub New()
			AddHandler Load, AddressOf Form1_Load
		End Sub
	End Class