Error LOOP sin DO Visual 6

Buenas, tengo un problema con una parte del codigo del un formulario, que hace que me de error en el loop, dice que no tiene do, aun cuanto si lo tiene, si elimino el loop me da un error en el end while, tambien que no tiene el while, si elimino este lo da en el end if, y por utimo termina diciendo que no exise codigo en el formulario. Y no hay end sub
este es parte del codigo, gracias si me puede ayudar.
With Adodc5
    cont = 0
    .Recordset.MoveFirst
    Do While Not .Recordset.EOF
        If UCase(Trim(.Recordset("ced_alum"))) = UCase(Trim(Text1(16).Text)) Then
            If UCase(Trim(Adodc1.Recordset("curso"))) = "7MO GRADO" Or _
            UCase(Trim(Adodc1.Recordset("curso"))) = "8VO GRADO" Then
                If .Recordset("resp1") = "0" Then
                    cont = cont + 1
                End If
                If .Recordset("resp2") = "8" Then
                    cont = cont + 1
                End If
                If .Recordset("resp3") = "11" Then
                    cont = cont + 1
                End If
                If .Recordset("resp4") = "15" Then
                    cont = cont + 1
                End If
                If .Recordset("resp5") = "22" Then
                    cont = cont + 1
                End If
                If .Recordset("resp6") = "29" Then
                    cont = cont + 1
                End If
                If .Recordset("resp7") = "31" Then
                    cont = cont + 1
                End If
                If .Recordset("resp8") = "37" Then
                    cont = cont + 1
                End If
                If .Recordset("resp9") = "41" Then
                    cont = cont + 1
                End If
                If .Recordset("resp10") = "49" Then
                    cont = cont + 1
                End If
                If .Recordset("resp11") = "53" Then
                    cont = cont + 1
                End If
                If .Recordset("resp12") = "57" Then
                    cont = cont + 1
                End If
                If .Recordset("resp13") = "61" Then
                    cont = cont + 1
                End If
                If .Recordset("resp14") = "68" Then
                    cont = cont + 1
                End If
                If .Recordset("resp15") = "70" Then
                    cont = cont + 1
                End If
                If .Recordset("resp16") = "78" Then
                    cont = cont + 1
                End If
                If .Recordset("resp17") = "82" Then
                    cont = cont + 1
                End If
                If...