求助：代码运行错误'13' 类型不匹配

fnsmydyang

为什么会出错:运行错误'13' 类型不匹配，请指教，谢谢...
Private Sub 当日序号_AfterUpdate()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT 订单.客户, 订单明细.材质, 订单明细.厚, 订单明细.宽, 订单明细.长, 订单明细.数量 FROM 订单 INNER JOIN 订单明细 ON 订单.采购编号 = 订单明细.采购编号 WHERE 订单明细.当日序号='" & Me![当日序号] & "'")
Me.客户 = rs(0)
Me.订单材质 = rs(1)
Me.规格 = rs(2) & "*" & rs(3) & "*" & rs(4)
Me.数量 = rs(5)
End Sub

fnsmydyang

唉，终于解决了，没有引用DAO，想不到也会出现这样的错误提示
如果也引用了ADO ，在定义记录集时要分清楚
Dim rs As DAO.Recordset
Dim rs As ADODB.Recordset