Visual Basic - Problemas con Datacombo

Hola amigos ,gracias por la ayuda k me puedan brindar, tengo un command que al hacerle clik debe de pasar información a un DATACOMBO y aun TEXTBOX. El problema es que si pasa información al TEXTBOX y no al DATACOMBO. Tengo lo siguiente:
Un modulo de conección:

Public CN As New ADODB.Connection
Public RX As New ADODB.Recordset

Public Function CONECTAR()
On Error GoTo MensajedeError

Dim Conex As String
Conex = "DSN=ALMACEN"
CN.ConnectionString = Conex
CN.Open

Exit Function
MensajedeError:
MsgBox "La Conexion ha Fallado.", mb_iconstop, "Error de Conexión"
End

End Function

Private Sub Command1_Click()
Call CONECTAR
Dim sql As String
sql = "Select tipo as ti from ingreso"
RX.Open sql, CN, adOpenKeyset, adLockOptimistic
Set DataCombo1.List = RX
DataCombo1.DataField = "TI"
Set Text1.DataSource = RX
Text1.DataField = "TI"
CN.Close
End Sub

PARA VERIFICAR QUE LA CONECCION ESTA BIEN PASE LA INFORMACIONAL TEXTBOX Y SI FUNCIONA, POR FAVOR ALGUNA AYUDA POR QUE NO ME BOTA NINGUN ERROR SIMPLEMENTE NO SE PRESENTA EL RESULTADO EN EL DATACOMBO1

GRACIAS

Hola, James!!!

Tu problema es que te has equivocado de propiedad.
La propiedad que debes usar, es listfield.

Set DataCombo1.ListField = RX

Saludos!!!

Pdta: cualquier otra duda escribeme.

gRACIAS lUIS , T PASASSTES. bENDICIONES