Visual Basic - tengo otro cod y tp se n q falla!!

Siento ser pesada pero tengo un codigo con el q pretendo o quiero q metiendo un dato (un codigo) hacer click en un boton y q m aparezcan l resto d los datos, podeis ayudarme, aki va, muchas 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 cod_pieza=text1", cn, 3, 3

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

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

siento ser tan pesada

rs.Open "select * from verificadores where cod_pieza='" & text1 & "'", cn, 3, 3

mira a ver si te sirve esto.

q va, muxas gracias pero no sale, error, le he cambiado algo, pero nada, y lo q quiero es q metiendo el codigo de una pieza (en este caso, en text1), salgan los verificadores q se usan para comprobar esa pieza, pero no sale, solo m sale un verificador, meta el codigo q meta, siemrpe sale el mismo.... bss si m podeis ayudar sabeis q os lo agradecere...

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", cn, 3, 3

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

End Sub

Disculpa pero como te va a mostrar todos los registros si los pretendes mostrar en cajas de texto , logico que te mostrar la primera concordancia, utiliza mejor un Grid o un DataGrid, para mostrar todos los datos