Error 3265 al intentar cargar un combo con info de una bd
Hola, quiero cargar una info de una tabla a un combo y me tira el error 3265, no se encontro el elemento en esta coleccion.
iql = "select cargo from especial"
Set Rs = base.OpenRecordset(iql, dbOpenDynaset)
If Rs.RecordCount > 0 Then
Call CargoCombo(CMBCARGO)
Hasta aca va bien, despues el proceso de cargocombo del modulo que es este de abajo, me tira error:
Public Sub CargoCombo(Cont As Control) '
Cont.Clear
If Rs.RecordCount 0 Then
Do While Not Rs.EOF
Cont.AddItem Trim(Rs(Cont.DataField)) /// Aca me marca el error
If Cont.Tag "" Then Cont.ItemData(Cont.ListCount - 1) = IIf(VarType(Rs(Cont.Tag)) = 8, Asc(Rs(Cont.Tag)), Rs(Cont.Tag))
Rs.MoveNext
Loop
Rs.MoveFirst
End If
End Sub
Ya busque en la red los posibles errores y nada lo pudo solucionar.
iql = "select cargo from especial"
Set Rs = base.OpenRecordset(iql, dbOpenDynaset)
If Rs.RecordCount > 0 Then
Call CargoCombo(CMBCARGO)
Hasta aca va bien, despues el proceso de cargocombo del modulo que es este de abajo, me tira error:
Public Sub CargoCombo(Cont As Control) '
Cont.Clear
If Rs.RecordCount 0 Then
Do While Not Rs.EOF
Cont.AddItem Trim(Rs(Cont.DataField)) /// Aca me marca el error
If Cont.Tag "" Then Cont.ItemData(Cont.ListCount - 1) = IIf(VarType(Rs(Cont.Tag)) = 8, Asc(Rs(Cont.Tag)), Rs(Cont.Tag))
Rs.MoveNext
Loop
Rs.MoveFirst
End If
End Sub
Ya busque en la red los posibles errores y nada lo pudo solucionar.