有劳各位大虾帮忙,怎样解决这一问题
   visual basic 6.0 建立了一个窗体，窗体上放了一个adodc控件，一个命令按钮，一个microsoft data grid control6.0控件
   目的：更新Access数据库里资料表栏位“入仓序号”第一条为1，接下来的记录依“入仓日期”而定，若“入仓日期”的值大于上一记录的值，则“入仓序号”的值为上一记录“入仓序号”的值+1；若“入仓日期”=上一记录的值，则要视入仓序号相同的
记录有多少条，当大于6条时“入仓序号”的值同样是上一记录“入仓序号”的值+1，入仓序号相同的记录小于6条时，“入仓序号”的值=上一条记录“入仓序号”的值
   代码如下：
Dim x As Single
Dim rcrq As Date
Dim rcxh As Single
Private Sub Command1_Click()
With Adodc1.Recordset
Do While Not .EOF()
rcrq = .Fields("入仓日期").Value
rcxh = .Fields("入仓序号").Value
.MoveNext
If .Fields("入仓日期") > rcrq Then
 x = 0
.Fields("入仓序号") = rcxh + 1
.Update
End If
If .Fields("入仓日期") = rcrq Then
    x = x + 1
    If x Mod 6 = 0 Then
    .Fields("入仓序号").Value = rcxh + 1
    .Update
    End If
    If x Mod 6 <> 0 Then
    .Fields("入仓序号").Value = rcxh
    .Update
    End If
End If
Loop
End With
End Sub