buenas, ai alguien me podria ayudar tengo un problema con un codigo en visual, el cual me da un error en el recordset, ya revise las conexinoes OBDC las internas del progrma y las tablas del formulario y todo pararece estar en orden la verdad nose porque me da este error si me pudieran ayudar, le estaria muy agradecida, ya que llevo mu cho tiempo con el error, aqui le dejo un fracmento del codigo, este codigo tambien esta en otro formulario bajo otras conexiones y corre perfecto, es en este form que esta fastidioso.
With Adodc5
cont = 0
.Recordset.MoveFirst <(ERROR)
Do While Not .Recordset.EOF
If UCase(Trim(.Recordset("ced_alum"))) = UCase(Trim(Text1(16).Text)) Then
If .Recordset("resp1") = "1" Then
cont = cont + 1
End If
If .Recordset("resp2") = "2" Then
cont = cont + 1
End If
If .Recordset("resp3") = "3" Then
cont = cont + 1
End If
If .Recordset("resp4") = "4" Then
cont = cont + 1
End If
If .Recordset("resp5") = "5" Then
cont = cont + 1
End If
If .Recordset("resp6") = "6" Then
cont = cont + 1
End If
If .Recordset("resp7") = "7" Then
cont = cont + 1
End If
If .Recordset("resp8") = "8" Then
cont = cont + 1
End If
If .Recordset("resp9") = "9" Then
cont = cont + 1
End If
If .Recordset("resp10") = "10" Then
cont = cont + 1
End If
If .Recordset("resp11") = "11" Then
cont = cont + 1
End If
If .Recordset("resp12") = "12" Then
cont = cont + 1
End If
If .Recordset("resp13") = "13" Then
cont = cont + 1
End If
If .Recordset("resp14") = "14" Then
cont = cont + 1
End If
If .Recordset("resp15") = "15" Then
cont = cont + 1
End If
If .Recordset("resp16") = "16" Then
cont = cont + 1
End If
If .Recordset("resp17") = "17" Then
cont = cont + 1
End If
If .Recordset("resp18") = "18" Then
cont = cont + 1
End If
If .Recordset("resp19") = "19" Then
cont = cont + 1
End If
If .Recordset("resp20") = "20" Then
cont = cont + 1
End If
If .Recordset("resp21") = "21" Then
cont = cont + 1
End If
If .Recordset("resp22") = "22" Then
cont = cont + 1
End If
If .Recordset("resp23") = "23" Then
cont = cont + 1
End If
If .Recordset("resp24") = "24" Then
cont = cont + 1
End If
If .Recordset("resp25") = "25" Then
cont = cont + 1
End If
If .Recordset("resp26") = "26" Then
cont = cont + 1
End If
If .Recordset("resp27") = "27" Then
cont = cont + 1
End If
If .Recordset("resp28") = "28" Then
cont = cont + 1
End If
If .Recordset("resp29") = "29" Then
cont = cont + 1
End If
If .Recordset("resp30") = "30" Then
cont = cont + 1
End If
If .Recordset("resp31") = "31" Then
cont = cont + 1
End If
If .Recordset("resp32") = "32" Then
cont = cont + 1
End If
If .Recordset("resp33") = "33" Then
cont = cont + 1
End If
If .Recordset("resp34") = "34" Then
cont = cont + 1
End If
If .Recordset("resp35") = "35" Then
cont = cont + 1
End If
If .Recordset("resp36") = "36" Then
cont = cont + 1
End If
If .Recordset("resp37") = "37" Then
cont = cont + 1
End If
If .Recordset("resp38") = "38" Then
cont = cont + 1
End If
If .Recordset("resp39") = "39" Then
cont = cont + 1
End If
If .Recordset("resp40") = "40" Then
cont = cont + 1
End If
If .Recordset("resp41") = "41" Then
cont = cont + 1
End If
If .Recordset("resp42") = "42" Then
cont = cont + 1
End If
If .Recordset("resp43") = "42" Then
cont = cont + 1
End If
If .Recordset("resp44") = "44" Then
cont = cont + 1
End If
If .Recordset("resp45") = "45" Then
cont = cont + 1
End If
If .Recordset("resp46") = "46" Then
cont = cont + 1
End If
If .Recordset("resp47") = "47" Then
cont = cont + 1
End If
If .Recordset("resp48") = "48" Then
cont = cont + 1
End If
If .Recordset("resp49") = "49" Then
cont = cont + 1
End If
If .Recordset("resp50") = "50" Then
cont = cont + 1
End If
If .Recordset("resp51") = "51" Then
cont = cont + 1
End If
If .Recordset("resp52") = "52" Then
cont = cont + 1
End If
If .Recordset("resp53") = "53" Then
cont = cont + 1
End If
If .Recordset("resp54") = "54" Then
cont = cont + 1
End If
If .Recordset("resp55") = "55" Then
cont = cont + 1
End If
If .Recordset("resp56") = "56" Then
cont = cont + 1
End If
If .Recordset("resp57") = "57" Then
cont = cont + 1
End If
If .Recordset("resp58") = "58" Then
cont = cont + 1
End If
If .Recordset("resp59") = "59" Then
cont = cont + 1
End If
If .Recordset("resp60") = "60" Then
cont = cont + 1
End If
Loop
Text1(8).Text = cont
End With
