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。请问是什么问题呢？

你检查一下数据库,按你当前的SQL打开数据库后,有没有记录被找到??

看错误内容是数据库没有找到符合条件的记录

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