Imports System.Data.SqlClient
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.EmpoloyeesTableAdapter.Fill(Me.EmpoloyeesDataSet.Empoloyees)
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sqlQuery As String
sqlQuery = " select * from Empoloyees where HireDate >= ((#" & dtpStart.Value & "#))) AND (ReturnDate <= ((#" & dtpEnd.Value & "#)))"
End Sub
End Class