
'应该这样判断Sql = "select * from daan where 题号 = '" & Text3.Text & "' And rs!用户 = '" & Label3.Caption & "'"rs.Open Sql, cnn, adOpenKeyset, adLockOptimisticif rs.recordcount > 0 then MsgBox "该题已做", vbExclamation, "提示"endif

'应该这样判断Sql = "select * from daan where 题号 = '" & Text3.Text & "' And rs!用户 = '" & Label3.Caption & "'"rs.Open Sql, cnn, adOpenKeyset, adLockOptimisticif rs.recordcount > 0 then MsgBox "该题已做", vbExclamation, "提示"endif