如何批量修改一列数据？

我有一个access表，其中一列是空，现在想把这列的数据改成1，改如何修改？几千行。

请参考：
Sub 修改一列数据()
    Dim cnn As Object, rs As Object, i&
    Set cnn = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\" & "Info.mdb"
    rs.Open "信息", cnn, 1, 3
    For i = 1 To rs.RecordCount
        rs.Fields("状态") = 1
        rs.Update
        rs.MoveNext
    Next
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

谢谢指点，我居然在写代码的时候写掉了 rs.MoveNext，结果就只修改了第一个记录，而自己也没发现原因，现在好了，可以了，谢谢！