大家好 可以帮忙看下下面的代码问题出在哪里吗 非常感谢 代码如下：
Option Explicit
Dim No(199) As Integer 'No()数组存放记录集中的rec_no字段
Private Sub Form_load()
  For i = 0 To 199
    No(i) = adoRst("rec_no")
    adoRst.MoveNext
  Next i
End Sub

Private Sub Command1_Click()
  Call OrderConnectionSUB    '总连接
  Call random_date(CDate("2009-2-1"), CDate("2009-3-10")) '随机产生200个实参范围内的随机日期
  For i = 0 To 199
    adoCon.Execute "update orders2 set o_date= '" & date_new(i) & "'" & " where rec_no= '" & No(i) & "'"
    adoRst.MoveNext
  Next i
End Sub

Private Sub Command2_Click()
  Set adoRst = Nothing
  Unload Me
End Sub

现在的问题是 在运行完Call random_date(CDate("2009-2-1"), CDate("2009-3-10")) 之后的确产生了新的date_new(i)
而adoCon.Execute "update orders2 set o_date= '" & date_new(i) & "'" & " where rec_no= '" & No(i) & "'"运行完之后SQL Server数据库中的o_date属性字段的值没有更新 仍为初始的Null值

请大家帮忙看看 问题出在哪里呢 非常感谢

[[it] 本帖最后由 berrylala 于 2009-7-20 19:55 编辑 [/it]]

哦 是自己犯了个非常弱智的错误 Form_load()应为Form1_load()