Заполнение Datagrid в VB 6.0 с помощью кода

---

Привет,
Я хочу заполнить datagrid с помощью SQL-запроса. Я не хочу использовать какой-то контроль ADODC.

Пожалуйста, предложите.
Я написал кодировку, но она не работает.

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

Ошибка заключается в том, что набор строк не является закладкой

Любой другой сегмент кода также будет полезен для меня.

Я просто хочу заполнить сетку данных с помощью SQL-запроса.


пожалуйста помочь

---