刷新的问题

Question

RefreshRst问题提示：编译错误
　　　　　参数不可选

Answer 1

函数原型？你必须给它参数，不是可选的。可能：RefreshRst rs1    '一个已经打开的记录集对象作为参数

Answer 2

同上，楼主把RefreshRst的函数原型贴出来看看

Answer 3

form load
connect.Open "file name=F:\aa.udl"
      RefreshRstPrivate Sub RefreshRst(aaa As String)
   'oSql = "select * from 图书"
    oSql = "select * from 图书 where 1=1 " & aaa
    Set rst = New ADODB.Recordset
    rst.Open oSql, connect, adOpenStatic, adLockReadOnly
    Set DataGrid1.DataSource = rst   
End Sub