Private Sub Form_Click()
 Dim data1 As Data
 Dim shuz As Double
 shuz = 27365.5
 data1 = shuz
 Print data1
End Sub


为什么运行到data1=shuz 就显示以下内容：
    实时错误‘91’
    对象变量或with块变量未设置
照书上写的代码啊，。。高手指教。。

哎，终于发现这点了，data1 不是data类型，，应该是Date 才对

照书上写的