Dataset?/CurrencyManager?/ScrollBar? affected improperly after using RowFilter

This is a continuation of a previous posting that now deals with a scrollbar inconsistency.  My other posting was resolved.

I have pasted three routines at the bottom for your review.  The first one is when a data entry form loads with an existing record.
The second is when I click on a button to clear my form.  The third one is if I use a scrollbar on that form.  The scrollbar is
minimized in size where only the scroll up and scroll down arrows are visible.  The user clicks each time to move the scrollbar value.

All textboxes and combo boxes are bound by a dataview.
I am also using CurrencyManager with the same dataview to facilitate the movement up and down from clicking my scrollbar.

Step 1 -
If I load a form and display an existing record by passing a value to a combo box as show in my first piece of code, the form populates
properly and I can use the scrollbar without fail.  Back and forth, back and form....no problem.

Step 2 -
When I click on the Clear/New button with the code below it seems to work properly.  RowFilter being set to "contact_id = 0"
means that the dataset will return empty.  There is no record with a contact_id = 0.  This way I am able to re-initialize my text
boxes and combo boxes to empty.

Step 3 -
If I have previously click on the Clear/New button (having an empty form), decide that I don't want to add a new record, and click on
the scroll bar to re-display the first record in the dataview....everything goes haywire.  It's as if my dataview is getting trashed.  It actually
may even be affecting things down to my dataset.

The first row in the dataset loses values in various fields.  One of my combo boxes will not display a value at all until I actually click on it
and chose an existing value....then I can click on the scrollbar and it populates properly.....but if I back up with the scrollbar it still will not
display the value on the first record.

Step 4 -
THEN, if I click on the scrollbar again, it goes into outer space as if it doesn't know what to do.  The only way to get out is to end is to
click on 'Stop Debug' button.



QUESTIONS -
Does there appear to be something I'm missing in my code or not doing this the most appropriate way?

Is there something I need to be refreshing after resetting the rowfilter = "".  Or is there a different way
to clear my form of data than 'contact_id = 0'...which is not a valid contact_id so that this thing doesn't
go crazy?

When I debug my VScrollBar1_Scroll and click on the scrollbar, it actually flows through the .Scroll twice.  The first time
the Scroll.Value = to the original value and the second time around with the value + 1.  Is this normal?

Thanks for any help you can give.

Phil


    Private Sub ContactMgmt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuildTablesAndViews()
        BuildComboBoxes()
        BindControls()
        If glNewRec = False Then
            Try
                cmboIndex.SelectedValue = glRecID
                RecIDIndex = cmboIndex.SelectedIndex
                VScrollBar1.Value = cmboIndex.SelectedIndex
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.OKOnly Or MsgBoxStyle.Critical, Me.Text)
            Finally
            End Try
            dvPropertiesOwned.RowFilter = "owner_id = " & txtContactID.Text
        Else
            cmdClearNew_Click(Nothing, Nothing)
        End If
        VScrollBar1.Maximum = dvContact.Count
    End Sub

    Private Sub cmdClearNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClearNew.Click
        glNewRec = True
        RecIDIndex = 0
        VScrollBar1.Value = 0
        dvContact.RowFilter = "contact_id = 0"      '<---- no record exists with contact_id = 0
        dvPropertiesOwned.RowFilter = "owner_id = 0"      '<---- no record exists with owner_id = 0
        cmboContactType.Focus()
    End Sub

    Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
        Select Case VScrollBar1.Value
            Case Is > RecIDIndex        ' MOVING FORWARD
                If glNewRec = True Then
                    glNewRec = False
                    dvContact.RowFilter = ""              <----- I've even tried to set it as "contact_id <> 0"
                    cmContact.Position = 0
                    RecIDIndex = 0
                    VScrollBar1.Value = 0
                Else
                    RecIDIndex = VScrollBar1.Value
                    cmContact.Position += 1
                End If
            Case Is < RecIDIndex        ' MOVING BACKWARD
                If glNewRec = True Then
                    glNewRec = False
                    cmContact.Position = 0
                    RecIDIndex = 0
                    VScrollBar1.Value = 0
                Else
                    If VScrollBar1.Value <> -1 Then
                        RecIDIndex = VScrollBar1.Value
                        cmContact.Position -= 1
                    Else
                        RecIDIndex = 0
                        VScrollBar1.Value = 0
                        cmContact.Position = 0
                    End If
                End If
        End Select
        If txtContactID.Text <> "" Then
            dvPropertiesOwned.RowFilter = "owner_id = " & txtContactID.Text
        End If
    End Sub