Связь recordset и datagrid - VB

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

Помогите, плз!
Как подключить recordset, полученный через execute() к datagrid?
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
set rs = Cmd.Execute
Set DataGrid1.DataSource = rs
Выдает ошибку "Нет bookmark".

Решение задачи: «Связь recordset и datagrid»

textual
                            Листинг программы 
                        
                            <font color="blue">Set</font> rs = <font color="blue">New</font> ADODB.Recordset
    <font color="blue">Set</font> cmd = <font color="blue">New</font> ADODB.Command
    
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = <font color="green">"ИмяЗапроса"</font>
    cmd.ActiveConnection = <font color="green">"DSN=SomeBase;"</font>
    
    rs.CursorLocation = adUseClient <font color="darkblue"><i>' тут поставил, не помогло</i></font>
    
    <font color="blue">Set</font> rs = cmd.Execute
    
    <font color="blue">Set</font> Adodc1.Recordset = rs
    
    Adodc1.Refresh

    <font color="blue">Set</font> DataGrid1.DataSource = Adodc1 ' тут ругается