problemas con datacombo

[annie11]

hola a todos:
esoy usando un datacombo en mi proyecto pero he intentado de muchas formas conectarlo con un rs y no se cargan los datos; estoy haciendo lo sgte:
datacombo.name=dcb
dcb.datasource=rs
dcb.rowsource=rs
dcb.listfield=rs!unCampo
dcb.boundcolumn=rs!otroCampo

esto supuestamente tiene que cargar todos los registros de unCampo en la lista pero no es asi, no se si deba altipo de datos ya que unCampo es int,tambien lo hecambiado y nada.
Por favor ayudemmne

escibamme a: [email protected]

[kakarot]

Yo lo hago atraves de una funcion
Sub carregarCombo(opcion As Integer, formulari As Form)
Dim cont As Integer
Dim rs2 As ADODB.Recordset
Dim sql As String
Select Case opcion
Case 0 'LLENAR COMBO DE TIPO VIVENDA DE LA TABLA TIPOVIVENDA
Call conectarRs(rs2, cn, "TIPOVIVIENDA")
For cont = 0 To rs2.RecordCount - 1
formulari.cmbTipoViv.AddItem rs2("nombreTipo")
rs2.MoveNext
Next ' LLENAR COMBO DE TIPO SUPERFICIE DE LA TABLA TIPOSUPERFICIE
Case 1
Call conectarRs(rs2, cn, "TIPOSUPERFICIE")
For cont = 0 To rs2.RecordCount - 1
formulari.CmbTipoSup.AddItem rs2("nombreTipo")
rs2.MoveNext
Next
Case 2 'LLENAR COMBO DE PERSONAL CON CATEGORIAS
Call conectarRs(rs2, cn, "CATEGORIA")
For cont = 0 To rs2.RecordCount - 1
formulari.cmbCategoria.AddItem rs2("nombre")
rs2.MoveNext
Next
Case Else
Exit Sub
End Select
rs2.Close
End Sub