Visual Basic - ayuda con GOTO urgente

Hola
tengo las siguientes instrucciones:
a = "ref_sub like '*" & cod_product.Text & "*'"
Data2.Recordset.FindFirst a
While Data2.Recordset.Fields("ref_sub") = cod_product.Text
contar = contar + 1
Data2.Recordset.MoveNext
Wend
If contar > 15 Then GoTo error Else GoTo correcto

correcto:
contar = 0
While Not Data13.Recordset.EOF And Data2.Recordset.Fields("ref_sub") = Val(cod_product.Text)

error:
contar = 0
Data1.Recordset.AddNew
Data1.Recordset.Fields("cod") = cod_product.Text
Data1.Recordset.Fields("descripción") = desc_product.Caption
Data1.Recordset.Update

pero cuando ejecuto la aplicacion me hace todo, es decir que no me direfencia la parte verdadera por un lado y la erronea por otro, y me hace las dos.

¿Sabe alguien como solucionar esto?

Gracias de antemano.

Deberías colocar un Exit Sub o Exit Function según corresponda debajo del If, otra opción es que coloques los bloques que llamas dentro del If:

If contar > 15 Then
contar = 0
Data1.Recordset.AddNew
Data1.Recordset.Fields("cod") = cod_product.Text
Data1.Recordset.Fields("descripción") = desc_product.Caption
Data1.Recordset.Update
Else
contar = 0
While Not Data13.Recordset.EOF And Data2.Recordset.Fields("ref_sub") = Val(cod_product.Text)
End If