Dim dt As DataTable = New DataTable()
Dim sql As String
Try
sql = " select Tb_Appointment.Appoint_id,Tb_Patient.Pat_Name,Tb_Appointment.Date_APP From Tb_Appointment,Tb_Patient " & _
" Where Tb_Appointment.Date_APP = '" & Dtp.Value & "' AND Tb_Appointment.Patient_id = Tb_Patient.Patient_id"