problemas con datacombo

[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