Visual Basic - VAya cosas mas raras me pasan

For i = 1 To 12
If (Adodc2.Recordset.Fields(i).Value = Null) Then
Exit Sub
Else
Text1(i).Text = Adodc2.Recordset.Fields(i).Value
End If
Next
si no me equivoco, este codigo deberia ir poniendote los datos del adodc en sus respectico textbox. Si algun campo del adodc fuese nulo, saldria del procedimiento.
Pues no, si el adodc no tiene ningun valor, coge y se va al else como si no seria null, y como no, saltaun error.
¿alguna sugerencia??

Observa que en vb null no es igual a null. Puedes verlo viendo que msgbox (null=null) no devuelve true. Parece estraño pero es lógico pensar que una cosa indefinida no es igual a otra cosa indefinida.Precisamente porque son indefinidas no podemos decir que son iguales.
La forma correcta es:
if isnull(adodc2.recordset.fields(i).value) then ...

saludos