[VB6] Data Combo non funziona

[Ultrareflex_New]

Ciao a tutto il NG!

Facendo un controllino nel vecchi post, ne ho visto uno interessante dove LadyBlue aveva dato un esempio secondo me valido (sono passato ora da access a VB6... quindi.... immaginate voi... VVoVe:

Ora si trattava di datacombo ed ho copiato il tutto sulla mia proprio come indicato sull'esempio di Lady.. solo che non mi restituisce nulla... ora mi domando.. ho sbagliato qualcosa?
Vi posto il codice:

Dim cn As New ADODB.Connection
cn.ConnectionTimeout = 10
Dim rs As New ADODB.Recordset
Dim StrSQL As String
cn.Open "Provider=SQLOLEDB.1;Data Source=XX-XXXXXXXXXXXFC2;" _
& "Initial Catalog=SanitariaBabyMarketSQL;User ID=XXXX;Password=XXXXXX"
StrSQL = "Select * from tblCodificaIva"
Set rs = cn.Execute(StrSQL)
Set DataCombo1.RowSource = rs
DataCombo1.BoundColumn = "IDCodificaIva"
DataCombo1.ListField = "CodiceIva"
DataCombo1.ListField = "DescrizioneIva"
DataCombo1.Refresh
End Sub

Qualcuno può aiutarmi?
Grazie mille...

Ultra

[Ultrareflex_New]

Ragazzi non c'è veramente nessuno che mi può dare una mano?
Help!!!!!!!