Can't get datagrid to display filtered rows

[meduffy]

I have a datagrid that loads a dataset when the form is loaded. It displays all of the rows just fine.

I am trying to filter rows using a Combo Box List. The Msgbox displays the correct string value selected from the Combo Box.

When the dataset is filled with the filtered query in the code below, no rows are displayed in the datagrid.

Can anyone help me with this problem.

Thanks

Here is my code:

Private Sub CboBxLocations_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboBxLocations.SelectedIndexChanged
If CboBxLocations.Text = "All Locations" Then
strSelectLocation = ""
Else
strSelectLocation = CboBxLocations.Text
End If
MsgBox("The Location selected is " & strSelectLocation, MsgBoxStyle.Information)
Dim objDataCommand As New OleDb.OleDbCommand
LocationDataView()
Dim strsql As String = "Select * from Pokerstats WHERE (Location = & strSelectLocation)" & _
"AND (Game_played = & strSelectGame) ORDER BY ID"
Dim objDataAdapter As New OleDb.OleDbDataAdapter(strsql, DBConnect)
Dim objDataset As New DataSet

Try
DBConnect.ConnectionString = Me.OleDbConnection1.ConnectionString
DBConnect.Open()

objDataAdapter.Fill(objDataset, "PokerStats")

DBConnect.Close()
DBConnect.Dispose()
Catch ex As Exception
End Try
Simply bind the data to our dataset and set the displayed table
to the Pokerstats datatable
Me.grdPokerStats.DataSource = objDataset
Me.grdPokerStats.DataMember = "PokerStats"
End Sub

 

[meduffy]

I fixed my own problem.

Thanks