Error de compilacion en VB 6.0

[NeO83]

Gracias eso ya lo resolvi pero ahora necesito llenar un combobox pero este se encuentra dentro de un frame y hai mismo utilzo otros dos combos el codigo q utilizo es este pero a la hora de correr mi formulario me marca un error en (Rd.Open "SELECT Id_departamento FROM departamentos", bdpeña2, adOptimisticdbOpen, adLockOptimistic)

Es el siguiente (Los argumentos son del tipo incorrecto, están fuera del rango aceptable, o están en conflicto el uno con el otro)

Dim Rd As New ADODB.Recordset
Rd.Open "SELECT Id_departamento FROM departamentos", bdpeña2, adOptimisticdbOpen, adLockOptimistic
cmbdepa.Clear
Do Until Rd.EOF
cmbdepa.AddItem Rd!Id_departamento
Rd.MoveNext
Loop
Rd.Close
Set Rd = Nothing



GRACIAS POR SU AYUDA Y DISCULPEN LAS MOLESTIAS