error 91 en visual 6

[marianyhernandez]

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

[Kelpie]

El error te da en la tercera línea del código que has pegado...
No necesitabas haber puesto el resto, pero sí las anteriores.

A todas luces, el error parece ser que el objeto recordset o el Adodc5 no están debidamente inicializados...

Por favor, sube las líneas anteriores. Aquellas en las que te conectas a la DB y abres el recordset...