لتحميل جدول الزيارات بهذا الاجراء

 Private Sub LoadVisits()

        Try
            If dsP.Tables.Count > 1 Then
                If dsP.Tables(1).TableName = "tbChVisits" Then
                    dsP.Tables.RemoveAt(1)
                End If
            End If
            Dim strQ As String = "Select * FROM tbChVisits WHERE IDC =" & T8.Text & " ORDER BY DateV"
            Dim daV As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strQ, dbCon)

            dbCon.Open()
            daV.Fill(dsP, "tbChVisits")

            dbCon.Close()


            If dsP.Tables("tbChVisits").Rows.Count > 0 Then
                BV.DataSource = dsP.Tables("tbChVisits")
                BV.ResumeBinding()
                If gblFill = False Then FillVisitsTxt()
            Else
                ClearText()
            End If
            BNDVisitCaption.Text = BV.Count & " / " & BV.Position + 1

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Load Visits", MessageBoxButtons.OK,         MessageBoxIcon.Warning, MessageBoxDefaultButton.Button3, MessageBoxOptions.RightAlign, True)
        End Try

    End Sub

---------------------------
اجراء محي النصوص 
حيث TV هي صناديق نصوص الزياؤات
    Private Sub ClearText()

        TV1.DataBindings.Clear()
        TV2.DataBindings.Clear()
        Tv3.DataBindings.Clear()
        TV4.DataBindings.Clear()
        TV5.DataBindings.Clear()
        TV6.DataBindings.Clear()
        TV7.DataBindings.Clear()
        TV8.DataBindings.Clear()

        dpV.DataBindings.Clear()
        TV1.Clear()
        TV2.Clear()
        Tv3.Clear()
        TV4.Clear()
        TV5.Clear()
        TV6.Clear()
        TV7.Clear()
        TV8.Clear()
        dpV.Value = DateTime.Today
        gblFill = False



    End Sub