Visual Basic - SEGURO QUE ES MUY FÁCIL (MOSTRAR REGISTROS)URGENTE

Hola, tengo el siguiente código:

Private Sub Command1_Click()

Form1.Data1.Recordset.MoveFirst
For x = 0 To Form1.Data1.Recordset.RecordCount - 1
'If Form1.Data1.Recordset.BOF = False Then
'Form1.Data1.Recordset.Move (x)
'End If

If Form1.Data1.Recordset.Fields(0) = Form3.Text1.Text And Form1.Data1.Recordset.Fields(1) = Form3.Text2.Text And Form1.Data1.Recordset.Fields(2) = Form3.Text3.Text And Form1.Data1.Recordset.Fields(3) = Form3.Text4.Text Then


Form1.Text1.Text = Form1.Data1.Recordset.Fields(0)
Form1.Text2.Text = Form1.Data1.Recordset.Fields(1)
Form1.Text4.Text = Form1.Data1.Recordset.Fields(2)
Form1.Text5.Text = Form1.Data1.Recordset.Fields(3)
Form1.Combo1.Text = Form1.Data1.Recordset.Fields(4)
On Error Resume Next
Form1.Text3.Text = Form1.Data1.Recordset.Fields(5)

Form1.Combo2.Text = Form1.Data1.Recordset.Fields(6)
Form1.Combo3.Text = Form1.Data1.Recordset.Fields(7)
Form1.Label5.Caption = Form1.Data1.Recordset.Fields(8)
Form1.Text6.Text = Form1.Data1.Recordset.Fields(9)
Form1.kg.Text = Form1.Data1.Recordset.Fields(10)
Form1.m3.Text = Form1.Data1.Recordset.Fields(11)
Form1.ml.Text = Form1.Data1.Recordset.Fields(12)
Form1.precio.Text = Form1.Data1.Recordset.Fields(13)
Form1.Label3.Caption = Form1.Data1.Recordset.Fields(14)
Form1.Text11.Text = Form1.Data1.Recordset.Fields(15)
Unload Form3
a = 1
End If
If

Creo que es porque en vez de Fields(10), tienes que poner Fields("Campo_Base_de_Datos"), aunque...si usas el Data1 (como control enlazado) porque no enlazas las cajas de texto con los campos de la tabla?.
No se si te lo he dejado claro... si quieres que te lo esplique mejor me lo dices.
Un saludo.