Populate Datagrid in VB 6.0 using code

See more:

VB

MS-Access

Hello,
I want to populate datagrid use a SQL Query. I don't want to use ADODC kind of control.

Please suggest.
I wrote the coding but it's not working.

Dim db As ADODB.Connection
Dim rs As ADODB.Recordset

Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim str As String
str = "Select * from table1"
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb"
db.Open
Set rs = db.Execute(str)

Set DataGrid1.DataSource = rs

Error is saying RowSet is not bookmarkable

Any other code segment will also helpful for me.

I just want to populate the datagrid using a SQL Query.


Please Help