Visual Basic - Ayuda con BV

hola necesito una ayuda//// he comenzado a interesarme por la programacion y estoy haciendo algunos progrmitas...par apractica..
****mi problema es el siguiente....tngo un comboBox que deseo llenarlo con las informaciones de categorias de una tabla en una BD-acces, el codigo es el siguiente:

Private Sub Form_Load()
Dim cn As adoDb.connection
Dim rs As adoDb.Recordset
Set cn = New adoDb.connection
With cn
cn.provider = "Microsoft.Jet.OLEDB.4.0"
cn.connectionstring = "Microsoft.Jet.OLEDB.4.0;Data Source=E:\directorio de Pruebas\New_Aplication.mdb;Persist Security Info=False"
End With
cn.open

Set rs = New adoDb.Recordset
With rs
rs.cursorlocation = adclient
rs.cursortype = addinamic
rs.locktype = adoptimis
End With
SQL = "select desc_grupos from grupos"
rs.open SQL, cn
ComboCat.AddItem rs.fields("desc_grupo")
End Sub

------SIN EMBARGO A LA HORA DE COMPILARLO Y HACER LA PRUENA ME DA EL SIGUIENTE ERROD....*****uSER-DEFINED TYPE NOT DEFINED...
Que estoy haciendo mal ...que puedo hacer???
Att: Luis manuel Tejada
Coreo: [email protected]

hoal lo anterir esta bien por lo que veo yo te describo como puedes hacerlo
esta es una forma

rs.open SQL, cn
do while not rs.eof
ComboCat.AddItem =rs!desc_grupo
loop
End Sub

***************otra forma********************

rs.open SQL, cn
do while not rs.eof
ComboCat.AddItem =rs.fields!(desc_grupo)
loop
End Sub
prueba y ahi me avizas saludos

Amigos Mio

Probe con la ayuda que me dijeron...pero el PROBLEMITA ESTA :

EN QUE DA UN ERROR DE COMPILACION..POR QUE ME da este error.

--*************USED-DEFINED TYPE NOT DEDINED************-.
y lo muestra en la variable CN que utilizo como adoDBConnection

NO SE SI LA DEBO DEFINIR ANTES EN ALGUN MODULO O ALGUN LADO...Y SI ES ASI ....DONDE LA DEFINO Y COMO LA DEFINO???

como seria el proceso para definir esa variable??

SQL = "select desc_grupos from grupos"
rs.open SQL, cn
ComboCat.AddItem rs.fields("desc_grupo")
En el query estas poniendo el campo desc_grupos y a la hora de llenar el combobox estas diciendo que el campo se llama desc_grupo, si te fijas le falta la s final, prueba con ella.

hola, crear un modulo y pon esto te va ser mas facil

****************modulo**************

Public Cn As Connection
Public Rs As Recordset
Public Sql As String

Sub conecta()
Set Cn = New Connection
Set Rs = New Recordset
Cnn.Open "provider=microsoft.jet.oledb.4.0;data source=E:\directorio de Pruebas\New_Aplication.mdb;Persist Security Info=False"
End Sub

*****************fin modulo*******************

******************formulario*****************

Private Sub Form_Load()
conectar

Sql = "select desc_grupos from grupos"
Rs.Open Sql, Cn, adOpenDynamic, adLockOptimistic

do while not rs.eof
ComboCat.AddItem =rs.fields!(desc_grupo)
loop

****************aqui no se si el pa llenar cual te sirvio*********

prueba con esto espero que te ayude saludos.