如何將rdo的資料傳給datagrid?(編號：7958)

我想將rdo的資料傳給datagrid,不知如何設定啊?
我已經可以連上rdo的資料只是我想用datagrid將data display出來
不知datagrid的DataSource & DataMembere該如何用?
Dim rsmovies As rdoResultset
Dim strsql As String
Dim strconnection As String
Dim cn As rdoConnection

With rdoEngine
.rdoDefaultCursorDriver = rdUseClientBatch
　 .rdoDefaultLoginTimeout = 30
End With

strconnection = "DSN=orc_sal;UID=MGRxxx;PWD=MGRxxxx"
Set cn = rdoEngine.rdoEnvironments(0).OpenConnection _
("orc_sal", rdDriverNoPrompt, False, strconnection)

strsql = "SELECT * FROM TEST21 ORDER BY ID"
Set rsmovies = cn.OpenResultset(strsql, rdOpenStatic, _
rdConcurReadOnly)
set datagrid1.datasouce=??(該如何設)
datagrid1.member=??(該如何設)