For j = 0 To creditInt - 1
   If rs7.Fields(j).Value = Null Or rs7.Fields(j).Value = Empty Then
   MsgBox "由于" & rs7.Fields("姓名").Value & "同学可能未修" & CreditName(j) & "这门课程,所以掠过对其绩点的计算."
   Else
   If creditXuefen(j) >= 3 Then
   curJidian = curJidian + creditXuefen(j) * 1.2 * markCredit(rs7.Fields(j).Value)
   Else
   curJidian = curJidian + creditXuefen(j) * markCredit(rs7.Fields(j).Value)
   End If
   End If
   Next
为什么 一开始 “If rs7.Fields(j).Value = Null Or rs7.Fields(j).Value = Empty Then " 都还能起作用，是第二次rs7.Fields(j).Value = Null 的时候 就会执行到“If creditXuefen(j) >= 3 Then
   curJidian = curJidian + creditXuefen(j) * 1.2 * markCredit(rs7.Fields(j).Value)
   Else
   curJidian = curJidian + creditXuefen(j) * markCredit(rs7.Fields(j).Value)
   End If ”
为什么啊，我要疯了.......实在不知道 该怎么改，求大侠 帮帮忙！！！

求高人帮忙

下个断点看看rs7.Fields(j).Value 值是多少,是不是Null或Empty

ls+1 另外，如果你前面有写on error resume next 请注释掉，调试时用这句你经常会找不到错在哪，这句是发布程序是避免未知错误时用的。。。另外，是略不是掠，错别字