'''''''检查选择的难度
If Check8.Value = Checked And Check9.Value = Checked And Check10.Value = Checked Then
nandu = "易" & " or 难度='中'" & " or 难度='难'"

ElseIf Check8.Value = Checked And Check9.Value = Checked Then
nandu = "易" & " or 难度='中'"

ElseIf Check8.Value = Checked And Check10.Value = Checked Then
nandu = "易" & " or 难度='难'"

ElseIf Check9.Value = Checked And Check10.Value = Checked Then
nandu = "中" & " or 难度='难'"

ElseIf Check8.Value = Checked Then
nandu = "易"

ElseIf Check9.Value = Checked Then
nandu = "中"

ElseIf Check10.Value = Checked Then
nandu = "难"
Else
MsgBox ""

End If

这是检查的难度，接下来是输出了
'''''''''''填空题
If tkt Then
txtSQL = "select * from 填空题 where 难度='" + nandu + "'"

Set rst = ExecuteSQL(txtSQL)
rst.MoveFirst
Do While Not rst.EOF
Text3.Text = Text3.Text + CStr(i) + "、" + rst!题目 + vbCrLf
total = total + rst!分值
i = i + 1
rst.MoveNext
Loop
Text1.Text = CStr(total)

Else
Text3.Text = "你未选择此类题！"
End If

可是出现错误提示说　Ｗith块没设置，哪位高手提示一下