求教VB如何连接ACCESS 并用DATA控件来显示前一条或后一条记录!!

Question

请各位高手指教!!VB连接数据库我不是很懂

Answer 1

Dim db As Database
Dim rs As Recordset
在form load 中
Set db = OpenDatabase(App.Path + "/数据库名.mdb")
Set rs = db.OpenRecordset("表名")
后一条
command1中
On Error Resume Next
rs.MoveNext
txt1 = rs.Fields("字段名1")
txt2 = rs.Fields("字段名2")
txt3 = rs.Fields("字段名3")
前一条
command2中
On Error Resume Next
rs.MovePrevious
txt1 = rs.Fields("字段名1")
txt2 = rs.Fields("字段名2")
txt3 = rs.Fields("字段名3")