Private Sub Main_Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ClinicDataSet.Medicine_Tbl' table. You can move, or remove it, as needed.
' Me.MedicineTableAdapter.Fill(Me.ClinicDataSet.Medicine_Tbl)
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "Ginfo")
Me.BindingContext(DataSet1, "Ginfo").Position = Me.BindingContext(DataSet1, "Ginfo").Count - 1
Conn.Close()
Pt_ID.DataBindings.Add("Text", DataSet1, "Ginfo.ID")
Pt_Name.DataBindings.Add("Text", DataSet1, "Ginfo.Name")
Pt_Mobile.DataBindings.Add("Text", DataSet1, "Ginfo.Mobile")
Pt_DOB.DataBindings.Add("Text", DataSet1, "Ginfo.DOB")
Pt_Age.DataBindings.Add("Text", DataSet1, "Ginfo.age")
Pt_Sex.DataBindings.Add("Text", DataSet1, "Ginfo.SEX")
Pt_Ocup.DataBindings.Add("Text", DataSet1, "Ginfo.Occupation")
Pt_Adress.DataBindings.Add("text", DataSet1, "Ginfo.ADRESS")
Pt_Credit.DataBindings.Add("text", DataSet1, "Ginfo.Credit")
Pt_SDis.DataBindings.Add("text", DataSet1, "Ginfo.S_Dis")
Search.Focus()
RadioButton3.Checked = True
If Pt_Credit.Text > 0 Then
Pt_Credit.BackColor = Color.Red
End If
Me.BindingContext(DataSet1, "Ginfo").Position = 0
End Sub