ADO数据库编程，如何实现上一条下一条记录浏览与记录添加与删除？

Question

Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connectioncn.Open "provider=microsoft.jet.oledb.4.0;data source=G:\ado\机床模块系列化.mdb"
sql = "select * from xiliesheji"
Set rs = New ADODB.Recordset
 rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Form1.Show
End Sub
没用ADO控件！我上面的程序实现数据库向文本框输入内容，但不知如何程序实现上一条下一条浏览及添加与删除，求指教！

Answer 1

Dim cn As ADODB.Connection
'这是下一条的代码,其它的自己写吧
Dim rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=G:\ado\机床模块系列化.mdb"
sql = "select * from xiliesheji"
Set rs = New ADODB.Recordset
 rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic
rs.MoveNextText1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)

Answer 2

下一条：rs.movenext
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
上一条：rs.MovePrevious
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
删除：rs.delete