"参数不足，期待是1"，如何解决？

yumendaxia

Private Function ImportData(i As Integer, a As Double, b As Double)
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("select F2 from Temp1 where NUM = " & i & " ")
如题，如图。"参数不足，期待是1",请教大家如何解决，感谢！

roych

1. Dim rst As DAO.Recordset
   
2.     Set rst = CurrentDb.OpenRecordset("select F2 from Temp1 where NUM =" & i )

复制代码

强调过好多次，记录集对象尽量写完整。否则，当引用了ADO和DAO时，很容易出错。