Good day!

I am using the ComponentOne control TDBGrid in my program. When i run the program, there's no error but the data cannot be displayed on the grid. Here's a portion of my code:

Private Sub PopulateGrid()
Dim rsProduct As New Recordset
Dim strQueryProduct As String

With rsProduct
If .State Then .Close
.Open strQueryProduct, gconPPRS, adOpenKeyset, adLockOptimistic
Set grdProduct.DataSource = rsProduct
End With

End Sub

Thank you in advance for your help.

God bless.