VB实时错误380，非法属性值？？

实时错误380非法属性值
 For i = 1 To 5
         TxtGf(i).Text = rs.Fields(i)
     Next i
     LblNumber.Caption = rs.Fields("序号")
     DTPDate.Value = rs.Fields("日期")
     DCboMagazine.Text = rs.Fields("名称")
     DCboYear.Text = rs.Fields("年")
     DCboP.Text = rs.Fields("期")
显示“日期”那行错误，是什么原因？

补充：按你的改提示编译错误，语法错误。如果我的代码没问题呢？因为我是照书打的，跟某个属性值有没有关系？应该主要检查哪？

答案：改成cdate(rs.Fields("日期"))试试。

其他：rs.Fields(i)返回的不是数值啊，是一个对象，text属性需要一个字符串而不是对象啊。
改成rs.Fields(i).Value即可（以此类推） 
————————————————
能把出错代码发上来并标出错误的地方吗？

上一个：VB load中不能执行方法吗？ 如：Private Sub Form_Load() Print "visual basic" & "开发" End Sub
下一个：VB写个程序按下按钮重新启动