Visual Basic - botones atras y adelante sin adodc

con ste codigo introduzco el codigo en una casilla de texto y en el resto aparecen los datos q le corresponden tambien en casillas de texto, pero mi problema es cuando ese codigo sta relacionado con mas de un dato, ntonces m gustaria hacer 2 botones; uno de ATRAS y otro de ADELANTE, para poder ver todos los datos correspondientes a ese dato.

al no tener un ADODC no se como puedo hacer para ver todos los datos, podeis ayudarme? gracias!!

Option Explicit

Private Sub Command1_Click()
Dim rs As Recordset
Set rs = CreateObject("Adodb.recordset")
Dim cn As Connection
Set cn = CreateObject("Adodb.connection")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Mis documentos\Ainhoa\ainhoa\piezas - verificadores\PRUEBA.mdb;Persist Security Info=False", "admin"
rs.Open "select * from verificadores where " & Text1.Text & " = cod_pieza", cn, 3, 3

Text2.Text = rs.Fields(0).Value
Text3.Text = rs.Fields(1).Value
Text4.Text = rs.Fields(2).Value
Text5.Text = rs.Fields(3).Value
Text6.Text = rs.Fields(4).Value

rs.Close
cn.Close
End Sub

Private Sub salir_Click()
Form1.Show
Form4.Hide
End Sub

Si no me equivoco haz dos botones, y asignales a cada uno la iunstruccion:

rs.movenext o rs.moveprevious

no se te olvide volver asignar el texto a tus textbox,

osea: textbox1.text= rs.fields(1);

ojala te sirva de algo y haya sido lo que querias

muchas gracias, pero q dices q los asigne en los mismos botones de atras y adelante? mucahs gracias de verdad

he hecho lo q me has dicho pero me dice q RS.movenext (o sea, la rs) es una variable no definida!!! podeis exarme una mano??? asi esta el codigo, q le pasa? PF NECESITO Q M AYUDEIS!!!

Option Explicit

Private Sub Command1_Click()
Dim rs As Recordset
Set rs = CreateObject("Adodb.recordset")
Dim cn As Connection
Set cn = CreateObject("Adodb.connection")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Mis documentos\Ainhoa\ainhoa\piezas - verificadores\PRUEBA.mdb;Persist Security Info=False", "admin"
rs.Open "select * from verificadores where " & Text1.Text & " = cod_pieza", cn, 3, 3

Text2.Text = rs.Fields(0).Value
Text3.Text = rs.Fields(1).Value
Text4.Text = rs.Fields(2).Value
Text5.Text = rs.Fields(3).Value
Text6.Text = rs.Fields(4).Value
rs.Close
cn.Close
End Sub

Private Sub Command2_Click()
rs.MoveNext
textbox2.Text = rs.Fields(0)
textbox3.Text = rs.Fields(1)
textbox4.Text = rs.Fields(2)
textbox5.Text = rs.Fields(3)
textbox6.Text = rs.Fields(4)
rs.Close
End Sub

Private Sub Command3_Click()
rs.MovePrevious
Text2.Text = rs.Fields(0).Value
Text3.Text = rs.Fields(1).Value
Text4.Text = rs.Fields(2).Value
Text5.Text = rs.Fields(3).Value
Text6.Text = rs.Fields(4).Value
rs.Close
End Sub

Private Sub salir_Click()
Form1.Show
Form4.Hide
End Sub

bueno, yo no se mucho, pero yo coloco un data en el formulario, y no lo utilizo.