Не работает рекордсет на гриде - VB

Формулировка задачи:

Народ, привет! Гляньте, плиз, вот это:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open 'DSN=VBGALDB'
Set rs = cn.Execute('SELECT top 10 * FROM RollersGuest')
rs.MoveFirst
Set DataGrid1.DataSource = rs
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

Все вроде правильно, да вот только строка

Set DataGrid1.DataSource = rs

ошибку выдает: 7004 The rowset Is not bookmarkable. Помоги, плиз! Заранее СПАСИБО!

Решение задачи: «Не работает рекордсет на гриде»

textual
                            Листинг программы 
                        

                            set rs=new adodb.recordset
rs.CursorLocation = adUseClient
rs.Open SQL, cn, adOpenKeyset, adLockOptimistic, adCmdText
 
Set DataGrid1.DataSource = rs
                        