Visual Basic - Este código no funka!!!!

Hola a todos y gracias a los que han intentado ayudarme con este tema:

Bueno, como uds ya saben lo que intento es filtrar desde una tabla llamada tabla1 de la base de datos y lo que pretendo es mostrar información de esta tabla en 2 combos distintos. La información que pretendo mostrar està ligada a codigos los codigos desde el 100 al 199 son quiero mostrarlos en un combo1 y los restantes (200 al 300) en el combo2. Para ello utilizo el siguiente código:

Private Sub Form_Load()

Do While Not Adodc1.Recordset.EOF
If Adodc1.Recordset!Des <= 199 Then
Combo1.AddItem Adodc1.Recordset!Des
Else
Combo2.AddItem Adodc1.Recordset!Des
End If
Adodc1.Recordset.MoveNext
Loop
Combo1.ListIndex = 0
Combo2.ListIndex = 0

End Sub

Al correr el programa me arroja el siguiente error:
'Error 91 en tiempo de ejecución' y apunta a la siguiente linea:

Do While Not Adodc1.Recordset.EOF

Estoy trabajando con ADODC y creo en las propiedades de este el vinculo a la tabla1 de la base de datos solicitada.

GRACIAS NUEVAMENTE,

JACK

Hola, Jack!!!

Parece que no entendiste.

Conectate al msn para explicarte lo que tienes que hacer.

Saludos!!

Lo que debe suceder es que no está inicializado el Objeto.
El ADODC necesita inicializarse con un SET o con un Refresh.
En tu caso no lo estás enlazando, por lo tanto no podrás utilizar SET, pero podrás utilizar Refresh
El error 91 indica que la variable de tipo Objeto no está establecida.

Private Sub Form_Load()
'Inicializas la variable de tipo Objeto la cual es el ADODC
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
If Adodc1.Recordset!Des <= 199 Then
Combo1.AddItem Adodc1.Recordset!Des
Else
Combo2.AddItem Adodc1.Recordset!Des
End If
Adodc1.Recordset.MoveNext
Loop
Combo1.ListIndex = 0
Combo2.ListIndex = 0

End Sub