Dim sc As Single
Dim rs As New ADODB.Recordset

rs.Open "select * from info where eid='" & Trim$(Mid$(pid, 17, 7)) & "'", cn
sc = sc * (rs("et") / rs("eq"))   '这里出现错误，见图片
rs.Close

ACCESS数据库下有表info，表中有字段et和eq。请问是什么问题呢？

哦，确实没有找到符合条件的记录。
现已解决，谢谢！