null 的問題 +_+ , 請高手指教 ...(編號:5498)

我有個table 有很多date fields, 所以有很多像下面的code. 有沒有簡單的方法 ?
If IsNull(rs1!createdate) Then
DTPicker1.Value = #1/1/1900#
Else
DTPicker1.Value = rs1!createdate
End If