Если поле содержит Null то выдается сабж, если есть значение то все ок.
Как избежать.

Код, на всякий случай:

Sub LoadKart1(n as string)
dim SQL, Query, WhereSQL, Order, SnapSQL as String
SQL = "Select * from MAN where num='" & n & "'"

dim cnb as new OdbcConnection("DSN=CITY;UID=" & Nick & ";PWD=" & PassWd & ";")
cnb.Open()
dim scb as new OdbcCommand(SQL, cnb)

dim drb as OdbcDataReader
drb = scb.ExecuteReader()
drb.Read()

txtFam.Text=drb("FAM")
txtImya.Text=drb("Ima")
txtOtch.Text=drb("Otch")
txtDaro.Text=drb("BORN_DATE")
txtPasport.Text=drb("Pasp_Se") & "  " & drb("Pasp_N")
txtPaspDate.Text=drb("PASP_DATE")
txtGorod.Text=drb("BORN_PLACE_TOWN")
...................
End Sub