Questo è tutto il codice:

Dim cnTIPO As New ADODB.Connection
Dim sqlTipo As String

For I = 0 To cmbCliente.Count - 1
Set rsTipo = New ADODB.Recordset

sqlTipo = "SELECT distinct '" & cmbCliente(I).Tag & "' FROM cliente"
Call carica_database(cnTIPO, rsTipo, sqlTipo, "db.mdb")

Do While Not rsTipo.EOF Or rsTipo.BOF
If Len(rsTipo.Fields(cmbCliente(I).Tag)) > 0 Then ' ----- l'errore è qui!!! -----
cmbCliente(0).AddItem UCase(rsTipo.Fields(cmbCLIENTE(I).tag)
End If
rsTipo.MoveNext

Loop
rsTipo.Close
Next I



N.B cmbCliente è un serie di combobox
IL problema è che non riconosce il campo infatti mi dice:"Impossibile trovare l'oggetto nell'insieme corrispondente...."
Aiutami ! Grazie 1K per ora!
:master: