Visual Basic - Error no se enocntro el elemento en la coleccion..

Hola a todos, tengo un problema estoy sobre la plataforma de visual basic 6.0 y bd sql server. Cuando consulto el formulario Ingreso de productos, al seleccionar una empresa( tabla empresa) en un combobox y seleccionar una de ellas que esta en lista me sale el sgte eror: error '3265' no se encontro el elemento que corresponde con el nombre o el ordinal pedido.
Aqui tengo el codigo...

Private Sub cmb_empresa_Click()
Dim RTEMPO As New ADODB.Recordset
Dim con As String, con1 As String
On Error GoTo xt
If Trim(cmb_empresa) = "" Then Exit Sub
con = "EXEC SP_ingresa 'EMPRESA','" & Trim(cmb_empresa.Text) & "'"
Set RTEMPO = coneccion.Execute(con)
con1 = RTEMPO("EMPID")
LBLEMPID.Caption = RTEMPO("EMPID")
RTEMPO.Close
-----------------------------------------------
con = "EXEC SP_ingresa 'GENERO','" & con1 & "'"
Set RTEMPO = coneccion.Execute(con)
cmb_genero.Clear
Call clsdiseno.ingresaCMB(RTEMPO, cmb_genero, 2)
RTEMPO.Close
Exit Sub
------------------------------------
Sub ingresaCMB(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)) ---- "en esta linea me envia el error"
rs.MoveNext
Next
End Sub
---------------------
Espero que puedan ayudarme, es urgente ..... gracias