Search Results Returned to a Datagrid

I am building a Windows form with multiple search critea that is returned to a datagrid on the same page for editing etc. I can search some criteria but it returns no results to the datagrid. I  am basically looking to ask why the results are not being displayed or if anyone has a simplier way for doing this process.

Thanks

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim strSQL As String

       
        Dim searchStr As String = ""
        Dim cnt As Integer = 0

       
        Dim sqlStr As String = "SELECT SeaWeb.* FROM SeaWeb;"
        Dim connectStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=D:\SeaWeb\SeaWeb.mdb;"
        Dim cnn1 As New OleDbConnection(connectStr)

        ' Build the search string.
        searchStr = BuildSearchString(sqlStr)

        cnn1.Open()

       
        Dim sqlCmd As New OleDbCommand(searchStr, cnn1)

       
        If cmbVendorName.SelectedItem.Text = "" And cmbTimekeeper.SelectedItem.Text = "" _
            And txtMatterNum.Text = "" And txtBegDate.Text = "" _
            And txtEndDate.Text = "" Then
            MsgBox("You must use at least one search criteria.")
            Exit Sub
            BindDataGrid()
            cnn1.Close()

    End Sub

    Private Function BuildSearchString(ByVal sqlstr As String) As String
       
        sqlstr = ""
        'If cmbVName.SelectedItem.Text <> " " Then
        '    If sqlstr = " " Then
        '        sqlstr = sqlstr & "(VName like " & """" & "%" & cmbVName.SelectedItem.Text & "%""" & ")"
        '    Else
        '        sqlstr = sqlstr & "(VName like " & """" & "%" & cmbVName.SelectedItem.Text & "%""" & ")"

        '    End If
        'End If
        ''Gets SQL from drop down list for Timekeeper name
        'If cmbTime.SelectedItem.Text <> "" Then
        '    If sqlstr = " " Then
        '        sqlstr = sqlstr & "(AName like " & """" & "%" & cmbTime.SelectedItem.Text & "%""" & ")"
        '    Else
        '        sqlstr = sqlstr & "(AName like " & """" & "%" & cmbTime.SelectedItem.Text & "%""" & ")"
        '    End If
        'End If

        ''Gets Search critia from Matter Number Entered

        If txtMNum.Text <> " " Then
            If sqlstr = " " Then
                sqlstr = sqlstr & "(MNum like " & """" & "%" & txtMNum.Text & "%""" & ")"
            Else
                sqlstr = sqlstr & "(MNum like " & """" & "%" & txtMNum.Text & "%""" & ")"
            End If
        End If

        If txtBegDate.Text <> " " Then
            If sqlstr = " " Then
                sqlstr = sqlstr & "(OrderTime like " & """" & "%" & txtBegDate.Text & "%""" & ")"
            Else
                sqlstr = sqlstr & "(OrderTime like " & """" & "%" & txtBegDate.Text & "%""" & ")"
            End If
        End If
        If txtEndDate.Text <> " " Then
            If sqlstr = " " Then
                sqlstr = sqlstr & "(OrderTime like " & """" & "%" & txtEndDate.Text & "%""" & ")"
            Else
                sqlstr = sqlstr & "(OrderTime like " & """" & "%" & txtEndDate.Text & "%""" & ")"
            End If
        End If
        'If cmbVName.SelectedItem.Text = "  " And cmbTime.SelectedItem.Text = "" And txtMNum.Text = "" Then

     

    End Function

      Sub BindDataGrid()

        Dim myDataTable As New DataTable
       dgSearchResults.DataSource = myDataTable

        Dim msqlStr As String = "SELECT SeaWeb.* FROM SeaWeb;"
        msqlStr = "SELECT SeaWeb.* FROM SeaWeb"
        Dim DBConn As System.Data.OleDb.OleDbConnection
        Dim DaSearch As New OleDbDataAdapter(msqlStr, DBCOnn)
        Dim DsSearch As SeaWeb8_22_05.FrmSeaWeb

        DsSeaWeb.Clear()
        OleDbDataAdapter1.Fill(DsSeaWeb)


    End Sub
Start Free Trial