请如何 问让VB ScriptControl支持VBA以外的对象

Question

例如我想在    ScriptControl 里面aa()的方法支持RecorderSet
    Dim db As Database
    Dim rs As Recordset
    Set db = OpenDatabase(App.Path & "\test.mdb")
    Set rs = db.OpenRecordset("select * from t1")
    rs.MoveLast
    Text1.Text = "Public Function aa( rs)" & _
                        "aa = rs.RecordCount " & _
                    "End Function"
    With ScriptControl1
        .AddCode (Text1.Text)
        Dim v
        v = .Run("aa", rs)
        MsgBox v
    End With

Answer 1

使用ScriptControl1.AddObject "rs",rs,则可直接在脚本里引用这个rs对象了,也可以如LZ所说进行传递,但LZ的代码有误,应加上回车换行符,即:
text1.text="function aa()" & vbcrlf & _
    "aa = rs.recordcount" & vbcrlf & _
    "end function"
另外,如果RS是ADO的对象,则必须设置数据集的游标,即rs.CursorLocation = adUseClient,否则aa=rs.recordcount会出错.