dataGrid?

Question

代码如下：    
Set cn = New ADODB.Connection
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    strPath = App.Path
    connstr = "Data Source=" + strPath + "\tally.mdb;"
    cn.ConnectionString = connstr
    cn.Open    strSql = "Select * from detail "
    Set rs = New ADODB.Recordset
    Set rs.ActiveConnection = cn
    rs.Open strSql, cn, adOpenKeyset, adLockPessimistic
       
    Set dataGrid1.DataSource = rs ????最后一句的写法对吗？为什么运行后还是不能连上?

Answer 1

Set dataGrid1.DataSource = strsql

Answer 2

rs.CursorLocation = adUseClient
 rs.Open strSql, cn, adOpenKeyset, adLockPessimistic
       
    Set dataGrid1.DataSource = rs ????

Answer 3

rs.CursorLocation = adUseClient
谢谢楼上的，写上这句话就ok了。