Visual Basic - AYUDA urgente porfavor

Hola
tengo el siguiente bucle:
While Not Data13.Recordset.EOF And Data2.Recordset.Field("ref_sub"=Val(cod_product.Text)
If Data2.Recordset.EOF Then
Data2.Recordset.MoveFirst
Else
codhilo(x).Caption = Data2.Recordset.Fields("sub_sub")
o = "ref_art like '" & codhilo(x).Caption & "'"Data7.Recordset.FindFirst
deschilo(x).Caption = Data7.Recordset.Fields("nom_art")
If codhilo(x).Caption < "020000" Then
uni(x).Caption = "Kg"
Else
uni(x).Caption = "m2"
End If
If codhilo(x).Caption < "020000" Then
canthilo(x).Caption = (Data2.Recordset.Fields("uni_sub") / 1000)
Else
canthilo(x).Caption = Data2.Recordset.Fields("uni_sub")
End If
precihilo(x).Caption = Data7.Recordset.Fields("prceu_art")
precihilo(x) = Format(precihilo(x).Caption, "0.0000")
costohilo(x).Caption = canthilo(x).Caption * precihilo(x).Caption
x = x + 1
Data2.Recordset.MoveNext
End If
Wend

pero cuando llega al ultimo registro, no me lo le, me da
error 3021 no hay ningun registro activo
y quiero que este ultimo registro lo lea.

Se le ocurre a alguien como arreglar esto, y que si me lea el ultimo registro?

Gracias.