什么错呢？可否写出错误讯息！
* 有点须注意的是“第一笔”，“最后比笔”或“上一笔”须写在个别的CommandButton中。
-------------------------------------------------
'下面两行写在General（一般区域内）里面（程式最上面）
Dim sql As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
'在Load区域内写：
Private Sub Form_Load()
On Error Resume Next
rs.MoveFirst
Label1.Caption=Rs("编号") & Rs("题目")
End Sub
Private Sub Command1_Click()
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" ’注意开关引号和分号
sql = "Select * From 单选题" ' 单选题不放[]
rs.CursorLocation = adUseClient '加上这行鼠标位置功能
Rs.Open sql, Conn, adOpenKeyset, adLockPessimistic ’
Rs.MoveNext '下一笔资料
If Rs.BOF = False And Rs.EOF = False Then
Label1.Caption = Rs("编号") & Rs("题目")
End If
If Rs.EOF = True Then ‘若超过最后一笔资料就返回最后一笔记录。
Rs.MoveLast
End If
End Sub
-----------------------------------------------------
说明：
* EOF为 "End Of File"
* BOF为 "Begining Of File"
比如：Rs.EOF=True 意思为超过最后一笔记录。
Rs.BOF=True 意思为超过第一笔记录。
* 其他移动记录方法：
rs.MoveLast ‘最后一笔记录
rs.MoveFirst ‘第一笔记录
Rs.MovePrevious '上一笔资料
If Rs.BOF = False And Rs.EOF = False Then
Label1.Caption = Rs("编号") & Rs("题目")
End If
If Rs.BOF = True Then ‘若超过第一笔资料就返回第一笔记录。
Rs.MoveFirst
End If
温馨提示：答案为网友推荐，仅供参考