VB读取数据库
Rs.Fields(0)
Rs.Fields(“字段名称”）

定义全局对象
Dim conn As New ADODB.Connection '创建数据库对象
Dim rs As New ADODB.Recordset '创建记录对象
数据库连接
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = " + App.Path + "/food.accdb"
 conn.Open
Set rs.ActiveConnection = conn
'设置查询的SQL语句
  strSQL = “SELECT * FROM  选择题"
  '设置rs的ActiveConnection属性，指定与其关联的数据库链接
  Set rs.ActiveConnection = conn
  '设置游标类型
  rs.CursorType = adOpenStatic
   '设置锁定类型
  rs.LockType = adLockOptimistic
  '打开记录集，将从表song中读取的结果集保存到记录集rs中
  rs.Open strSQL

rs.MoveFirst
Label1.Caption = rs.Fields("题干")
Label2.Caption = rs.Fields("选项A")
Label3.Caption = rs.Fields("选项B")
Label4.Caption = rs.Fields("选项C")
Label5.Caption = rs.Fields("选项D")
rs.MoveNext
Label1.Caption = rs.Fields("题干")
Label2.Caption = rs.Fields("选项A")
Label3.Caption = rs.Fields("选项B")
Label4.Caption = rs.Fields("选项C")
Label5.Caption = rs.Fields("选项D")
移动到最后一条记录用判断当前记录位置解决
rs.RecordCount 记录总数
rs.AbsolutePosition = 1 当前记录为第一条

按钮可用性Enable属性的值为true
解决next和previous错误n=0
Do while Not rs.EOF
   a(n)=rs.fields(“题干”)
   n=n+1
   rs.movenext  
Loop
For i= 1 to n
    List1.additem str(a(i))
Next i