Error en consulta, elemento en la coleccion

[shark_29]

Hola a todos, mi problema es al consultar un form ( ingreso de productos ) en la tabla empresa, no encuentra el dato o no coincinden los datos. el codigo es el sgte:

Private Sub cmb_empresa_Click()
Dim RTEMPO As New ADODB.Recordset
Dim con As String, con1 As String
On Error GoTo CORRIGE

If Trim(cmb_empresa) = "" Then Exit Sub
con = "EXEC SP_LLENA 'EMPRESA1','" & Trim(cmb_empresa.Text) & "'"
Set RTEMPO = coneccion.Execute(con)
con1 = RTEMPO("EMPID")
LBLEMPID.Caption = RTEMPO("EMPID")
RTEMPO.Close
'==================================
con = "EXEC SP_LLENA 'GENERO1','" & con1 & "'"
Set RTEMPO = coneccion.Execute(con)
cmb_genero.Clear
Call clsdiseno.LLENACMB(RTEMPO, cmb_genero, 2)
RTEMPO.Close
Exit Sub
CORRIGE:
MsgBox "Error : " & Err.Description, vbCritical, "Operatividad"
End Sub
--------------------------

Sub LLENACMB(rs As ADODB.Recordset, CMB As ComboBox, VALOR As Integer)
Dim i As Integer
For i = 1 To rs.RecordCount - 1
CMB.AddItem UCase(rs(VALOR))
rs.MoveNext
Next
End Sub

-----------
error :no se encontro el elemento en la coleccion que corresponde con el nombre o el ordinal pedido

gracias d ante mano.