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

Private Sub Form_Load()
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
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控件！我上面的程序实现数据库向文本框输入内容，但不知如何程序实现上一条下一条浏览及添加与删除，求指教！ --------------------编程问答-------------------- 上一条下一条P用都没有，除非只有几条 --------------------编程问答-------------------- 我的确只有几条！我做机械方面的！只想用到这一小部分！ --------------------编程问答-------------------- movenext，moveprevious --------------------编程问答-------------------- 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)
--------------------编程问答--------------------

引用 4 楼 dbcontrols 的回复:

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"
……

正解 --------------------编程问答-------------------- 下一条：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

补充：VB ,  数据库(包含打印，安装，报表)