一个匹配问题！请急答，谢谢！

for i=0 to 1
randomNum(i)=1
next
Randomize
Do
for i=0 to 1
randomNum(i)=int(Rnd*Rcount+1)
next
loop while(randomNum(0)=randomNum(1))
for i=0 to 1
set conn=server.CreateObject("ADODB.Connection")
conn.open "db1"
SQL_Title="select * from exa where ID=RandomNum(i)"
set RS=conn.Execute(SQL_Title)
上面这段程序为什么出来Microsoft OLE DB Provider for ODBC Driver(0x80004005)
错误。请帮我解决一下。谢谢

---------------------------------------------------------------

SQL_Title="select * from exa where ID=RandomNum(i)"
改成
SQL_Title="select * from exa where ID='"& RandomNum(i) &"'"