asdfawdf

    If MsgBox(”Add.New Record .are you sure?”, MsgBoxStyle.Question + MsgBoxStyle.YesNo, “Add”) Then
            Me.SampleDataSet.profile.Clear()
            Me.bngPro.AddNew()
            enabledcontrol()
        End If

delete

   If MsgBox(”Delete current Record,are you sure?”, MsgBoxStyle.Question + MsgBoxStyle.YesNo, “Delete”) = MsgBoxResult.Yes Then
            Me.bngPro.RemoveAt(Me.bngPro.Position)
            ProfileTableAdapter.Update(Me.SampleDataSet.profile)
        End If

save

  If MsgBox(”Save current Record,are you sure?”, MsgBoxStyle.Question + MsgBoxStyle.YesNo, “Save”) = MsgBoxResult.Yes Then
            Me.bngPro.EndEdit()
            ProfileTableAdapter.Update(Me.SampleDataSet.profile)
            ProfileTableAdapter.Update(Me.SampleDataSet.profile)
            disablecontrol()
        End If

cancel

 If MsgBox(”cancel current operation,are you sure?”, MsgBoxStyle.Question + MsgBoxStyle.YesNo, “cancel”) = MsgBoxResult.Yes Then
            Me.bngPro.CancelEdit()
            ProfileTableAdapter.Update(Me.SampleDataSet.profile)
            ProfileTableAdapter.Update(Me.SampleDataSet.profile)
            enabledcontrol()
        End If

find

  Dim i As Integer
        Form3.ShowDialog()
        For i = 0 To Me.bngPro.Count - 1
            Me.bngPro.Position = i
            If Me.lblid.Text = findId Then
                Exit For
            End If
        Next

  Private Sub enabledcontrol()

        Me.txtlastname.Enabled = True
        Me.txtfirstname.Enabled = True
        Me.txtmi.Enabled = True
        Me.txtage.Enabled = True
        Me.txtaddress.Enabled = True
        Me.cmbcourse.Enabled = True
        Me.cmbgender.Enabled = True
        Me.cmbyrlevel.Enabled = True
        Me.cmbsection.Enabled = True
        Me.DateTimePicker1.Enabled = True
        Me.btnadd.Enabled = False
        Me.btnedit.Enabled = False
        Me.btnclose.Enabled = False
        Me.btndelete.Enabled = False
        Me.btnprevious.Enabled = False
        Me.btnnext.Enabled = False
        Me.btncancel.Enabled = True
        Me.btnsave.Enabled = True

        Me.btnadd.Visible = False
        Me.btnsave.Visible = True
        Me.btncancel.Visible = True
        Me.btnedit.Visible = False
    End Sub

  Private Sub disablecontrol()

        Me.txtlastname.Enabled = False
        Me.txtfirstname.Enabled = False
        Me.txtmi.Enabled = False
        Me.txtage.Enabled = False
        Me.txtaddress.Enabled = False
        Me.cmbcourse.Enabled = False
        Me.cmbgender.Enabled = False
        Me.cmbyrlevel.Enabled = False
        Me.cmbsection.Enabled = False
        Me.DateTimePicker1.Enabled = False

        Me.btnadd.Enabled = True
        Me.btnedit.Enabled = True
        Me.btnclose.Enabled = True
        Me.btndelete.Enabled = True
        Me.btnprevious.Enabled = True
        Me.btnnext.Enabled = True

        Me.btncancel.Enabled = True
        Me.btnsave.Enabled = True

        Me.btnadd.Visible = True
        Me.btnsave.Visible = False
        Me.btncancel.Visible = False
        Me.btnedit.Visible = True

    End Sub