读取数据库遇到的问题？

[yanxunet]

Private Sub Form_Load()
Dim PerId,Pername, IdCard, Department, Duty, Place, Phone As String
Dim birthday As String
Dim Sex, Age As Integer
Dim length, Heighth, Weight As Single

dim Rs as adodb.Recordset
dim MsgString as string

sql = "select * from personnel where PerId="P1021352612012"
Set Rs = ExecuteSql(sql, MsgString)

If Rs.EOF Then '判断是否有此员工编号存在
MsgBox "发现意外,查无此员工编号", vbOKOnly, "修改员工资料"
Exit Sub
End If

Pername = Rs("PerName") '读取员工姓名
Sex = Rs("Sex") '读取性别
Age = Rs("Age") '读取年龄
IdCard = Rs("Idcard") '读取身份证号
Department = Rs("Department") '读取部门
Duty = Rs("Duty") '读取职务
length = Rs("Length") '读取工龄
Place = Rs("Place") '读取地址
Phone = Rs("Phone") '读取电话
MobilePhone = Rs("MobilePhone") '读取电话
Speciality = Rs("Speciality") '读取专业
Study = Rs("Study") '读取学历
Fschool = Rs("Fschool") '读取毕业院校
ForeignKind = Rs("ForeignKind") '读取外语种类
Elevel = Rs("Elevel") '读取外语水平
Clevel = Rs("Clevel") '读取计算机水平
Nation = Rs("Nation") '读取民族
Nplace = Rs("Nplace") '读取籍贯
Marriage = Rs("Marriage") '读取婚姻状况
Birthday = Rs("Birthday") '读取生日
Polity = Rs("Polity") '读取政治面貌
Hplace = Rs("Hplace") '读取户口所在地
Experience = Rs("Experience") '读取工作经历
Heighth = Rs("Height") '读取身高
Weight = Rs("Weight") '读取体重
Health = Rs("Health") '读取健康状况
end sub

我用的是sql server数据库，如果字段是有数据，读得很正常，
如果某个字段是null空值，都会出现
实时错误'94'
无效使用null的提示？

为什么会这样？要怎么解决？谢谢！

[pcwak]

在数据库设置字段可以为空

[hxq2000]

Health =""+ Rs("Health")

[yangao]

两种方法
1。给数据库字段设上默认值
2。用IIF函数判断
IIf(IsNull(.Fields("行政职务聘用时间")), "1900-1-1", .Fields("行政职务聘用时间"))

[yangao]

两种方法
1。给数据库字段设上默认值
2。用IIF函数判断
IIf(IsNull(.Fields("行政职务聘用时间")), "1900-1-1", .Fields("行政职务聘用时间"))

[yanxunet]

IIF函数判断？
谢了，我现在就试试！

[yanxunet]

现在可以了，但我还有一点不太明白，
在vb里，如果想把数据字段值放到变量中，
为了防止出错，
是不是一定要用两种方法这一？

asp中就不存在这种错误，因为vbScript 变量只是变体类型
还有，好象我把变量定义成变体类型就可以了。