Private Sub cmdPre_Click()
If Adodc1.Recordset.BOF = True Then
    Adodc1.Recordset.MoveFirst
    Call init_text‘初始化文本框
Else
    Adodc1.Recordset.MovePrevious
    Call init_text
End If
End Sub
各位大哥,帮帮我,我是初学者不懂这么多啊。