在题库中随机抽取若干题后，怎样把他调出来那？？

我简单介绍一下，在一个窗体中已经抽出了试题，抽取的在“是否选中”字段中为“1”
 Dim myrnd(20) As Integer
j = 0
Do While j < 20
 Randomize
 myrnd(j) = Round(Rnd * 40)
Set myre = New ADODB.Recordset
myre.Open "select * from 单选 where ID=" & myrnd(j), cnn2, adOpenDynamic, adLockPessimistic
注意看下面的程序，我在另一个窗体中把抽出的试题依次显示出来
Set myre = New ADODB.Recordset
myre.Open "select * from 单选 where 是否选中 ='" & 1 & "'", cnn2, adOpenDynamic, adLockPessimistic
Dim num As String
nun = ""
'num = "id='" & 1 & "'"
num = "id='" & myrnd(0) & "'"
myre.Find num
Label7.Caption = Trim(myre!内容)
Label8.Caption = Trim(myre!A)
Label9.Caption = Trim(myre!B)
Label10.Caption = Trim(myre!C)
Label11.Caption = Trim(myre!d)
运行时，提示错误：Label7.Caption = Trim(myre!内容)
上面这句话，应用程序定义或对象定义错误
有劳各位看看