急呀`!一个问题帮我一个(关于datagrid的)

我是刚学数据库这一部分的,想做一个关于智能出题的一个程序
用的数据库是access
数据库是这样的
id 选择题 选项a 选项b 选项c 选项d 答案
1 第一台计算机的名字? A:EXE B:ENIAC C:windows OS B
2 ... .. .. ... .. ..
3 ......... .. . . ....... .. ..
我用的是adodc和datagrid,在datagrid中显示上面的内容
private sub command1_click()
dim a(5) as integer
for i=0 to 5
randomize
a(i)=int(rnd*adodc1.recordset.recordcount)
datagrid.row=a(i)--------这句总是出问题,不知道为什么~!
for j=1 to 5
datagrid1.col=j
lable1(i).caption=label1(i).caption & datagrid1.text
next j
next i
end sub
我的意思是想用label显示随机出的datagrid的 选择题 选项a 选项b 选项c 选项d
我想出的程序是上面的,可是总是出问题,请各位程序员大哥帮帮小弟呀~!
谢谢~!