Dim strfilter As String
bsorder.Filter = "CustomerID = " & custid & ""
                    strfilter = CStr(bsorder.Filter = "CustomerID = " & custid & "")
                    If String.IsNullOrEmpty(CStr(strfilter)) Then
                        MessageBox.Show("Error! No result found, try again!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        bsorder.Filter = "CustomerID = " & custid & ""
                        NoFilterToolStripMenuItem.Visible = True
                        bsorder.MoveFirst() 'go to start once filtered
                        BtnNext.Enabled = True
                        BtnSEnd.Enabled = True
                        BtnPrev.Enabled = (bsorder.Position > 0)
                        BtnStart.Enabled = (bsorder.Position > 0)
                    End If