If reader("出生年月日") = Nothing Then
    txt出生年月日.Text = Microsoft.VisualBasic.Right(Microsoft.VisualBasic.Left(txt身份证号.Text, 14), 8)
Else
    txt出生年月日.Text = CStr(reader("出生年月日"))
End If


上面代码，红字部分怎么表达？Access数据表里“出生年月日”是短日期格式，可以为空值。填了日期的就没错，没有填写的，这里就发生错误了！

3Q，问题解决！