修改数据库

zsd5237

我的一段代码是EXCEL修改数据库表的，但代码执行后不能对所有的数据行进行修改，这修改了部分数据行，请高手指导！代码如下：
On Error Resume Next
    Call OpenConn     '联接数据
    SQL = "Select * from [生产性生物资产基础数据]"
    RST.Open SQL, cnn, adOpenKeyset, adLockOptimistic

    With RST
        For i = 6 To 2004
            RST.Find ("生产编号 ='" & Cells(i, 1) & "'")
            If Len(Cells(i, 1)) > 0 Then
                    '.AddNew '新建记录
             '下面是(A6:Z2004)区域数据修改数据库数据

                    .Fields("当前生产状态") = Cells(i, 9)
                    .Fields("状态改变日期") = Cells(i, 10)

                    If Len(Cells(i, 26)) > 0 Then
                       .Fields("配种日期") = Cells(i, 26)
                    ElseIf Len(Cells(i, 16)) = 0 And Len(Cells(i, 21)) = 0 And Len(Cells(i, 26)) = 0 Then
                       .Fields("配种日期") = Cells(i, 11)
                    ElseIf Len(Cells(i, 16)) > 0 And Len(Cells(i, 21)) = 0 Then
                       .Fields("配种日期") = Cells(i, 16)
                    ElseIf Len(Cells(i, 21)) > 0 Then
                       .Fields("配种日期") = Cells(i, 21).Text
                    End If

                 '添加到数据库部分
                    .Update '更新数据
                    .MoveNext '下一次记录
             End If
        Next i
    End With
100:

注：数据库表的日期字段数据类型是文本。代码字段不至上面的这几个。
请高手们指导修改。我用的是EXCEL2003

zsd5237

请各位高手帮忙