Si eso no funciona y de antemano dabes que el Campo siempre va ser numerico podrias hacer esto tambien:
Código vb:
Ver originalIf Asc (Left$(Cstr(login.rst.Fields("numero").Value),1) >= 48 and Asc (Left$(Cstr(login.rst.Fields("numero").Value),1) <= 57 then'
'Eso quedria decir que el campo tiene un valor y ademas es numerico
Else
'No tiene un valor numerico
End if(
Consiguete el Codigo Ascii y juega con las comapraciones como mas te convenga...