VB讀取數據庫Rs.Fields(0)Rs.Fields(“字段名稱”）1.設計數據庫定義全局對象DimconnAsNewADODB.Connection'創建數據庫對象DimrsAsNewADODB.Recordset'創建記錄對象數據庫連接conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource="+App.Path+"/food.accdb"

conn.OpenSetrs.ActiveConnection=conn2.連接數據庫讀取記錄（解決停留在最后一條）'設置查詢的SQL語句

strSQL=“SELECT*FROM選擇題"'設置rs的ActiveConnection屬性，指定與其關聯的數據庫鏈接

Setrs.ActiveConnection=conn'設置游標類型

rs.CursorType=adOpenStatic'設置鎖定類型

rs.LockType=adLockOptimistic'打開記錄集，將從表song中讀取的結果集保存到記錄集rs中

rs.OpenstrSQL移動到第一條記錄rs.MoveFirstLabel1.Caption=rs.Fields("題干")Label2.Caption=rs.Fields("選項A")Label3.Caption=rs.Fields("選項B")Label4.Caption=rs.Fields("選項C")Label5.Caption=rs.Fields("選項D")移動到下一條記錄rs.MoveNextLabel1.Caption=rs.Fields("題干")Label2.Caption=rs.Fields("選項A")Label3.Caption=rs.Fields("選項B")Label4.Caption=rs.Fields("選項C")Label5.Caption=rs.Fields("選項D")移動到上一條記錄rs.MovePreviousLabel1.Caption=rs.Fields("題干")Label2.Caption=rs.Fields("選項A")Label3.Caption=rs.Fields("選項B")Label4.Caption=rs.Fields("選項C")Label5.Caption=rs.Fields("選項D")移動到最后一條記錄rs.MoveLastLabel1.Caption=rs.Fields("題干")Label2.Caption=rs.Fields("選項A")Label3.Caption=rs.Fields("選項B")Label4.Caption=rs.Fields("選項C")Label5.Caption=rs.Fields("選項D")解決next和previous錯誤用判斷當前記錄位置解決rs.RecordCount記錄總數rs.AbsolutePosition=1當前記錄為第一條按鈕可用性Enable屬性的值為true讀取字段到數組n=0DowhileNotrs.EOFa(n)=rs.fields(“題干”)