Null

[GeoAvila]

If Not IsNull(rst.Fields(2)) Then
txtDir.Item(1).Text = rst.Fields(2)
Else
msgbox("Se ha detectado campo nulo")
Exit sub
End If

esto haría que se salga del Sub

también podrías tratar con un valor por default por ejemplo

If Not IsNull(rst.Fields(2)) Then
txtDir.Item(1).Text = rst.Fields(2)
Else
txtDir.Item(1).Text = "ValorDefault"
End If

nos vemos..