关于dbgrid

Question

dim mSrcResult As rdoResultset
    strSQL = " select * from defart "
    Set mSrcResult = senc.OpenResultset(strSQL, rdOpenForwardOnly)
     
    dbgrdUnSelect.DataSource = mSrcResult senc 是 rdoConnection
dbgrdUnSelect是dbgrid，运行后报错

Answer 1

rdo我不太用，但是，看你的代码，至少有这样的问题。
dbgrdUnSelect.DataSource = mSrcResult
==>
set dbgrdUnSelect.DataSource = mSrcResultvb6以后都是用ADO的多。
ADO的例子dim cn as adodb.connection
dim rs as adodb.recordsetcn.open ...
rs.open sql,cn,adopenstatic,adlockoptimisticset dbgrid1.datasource=rs
...