Pasted

Protected Sub RadGrid1_NeedDataSource1(source As Object, e As GridNeedDataSourceEventArgs) _
        Handles RadGrid1.NeedDataSource
        If (searchInput.Text <> "") Then
 
            If (MyFunctions.userSeeAllBranch()) Then
 
                Using db As New DbClassDataContext
 
                    Dim Leads = From l In db.LeadsLists Where (l.fullName.Contains(searchInput.Text)) _
                                                        Or (l.business.Contains(searchInput.Text)) _
                                                        Or (l.ContactPhone.Contains(searchInput.Text)) _
                                                        Or (l.Phone.Contains(searchInput.Text)) _
                                                        Or (l.CellPhone.Contains(searchInput.Text))
 
                RadGrid1.DataSource = Leads ' Am I doing this correctly?
 
                End Using
            Else
                Dim userBranch As String = MyFunctions.getUserBranch().ToString()
 
                Using db As New DbClassDataContext
 
                    Dim Leads = From l In db.LeadsLists Where (l.fullName.Contains(searchInput.Text)) And l.Branch.Equals(userBranch) _
                                                        Or (l.business.Contains(searchInput.Text)) And l.Branch.Equals(userBranch) _
                                                        Or (l.ContactPhone.Contains(searchInput.Text)) And l.Branch.Equals(userBranch) _
                                                        Or (l.Phone.Contains(searchInput.Text)) And l.Branch.Equals(userBranch) _
                                                        Or (l.CellPhone.Contains(searchInput.Text)) And l.Branch.Equals(userBranch)
 
                RadGrid1.DataSource = Leads ' Am I doing this correctly?
                End Using
            End If 'if searchInput
        Else
            If (MyFunctions.userSeeAllBranch()) Then
                Using db As New DbClassDataContext
 
                    Dim Leads = From l In db.LeadsLists
 
                RadGrid1.DataSource = Leads ' Am I doing this correctly?
                End Using
            Else
                Using db As New DbClassDataContext
                    Dim userBranch As String = MyFunctions.getUserBranch().ToString()
 
                    Dim Leads = From l In db.LeadsLists Where l.Branch.Equals(userBranch)
 
                RadGrid1.DataSource = Leads ' Am I doing this correctly?
                End Using
            End If
        End If
    End Sub