si lo scusa solo che la risosuluzione mi serve in fretta e ho trovato uno in gamba che mi rispondesse .. se aprivo un nuovo thread andava per le lunghe..comunque intendi una cosa di questo tipo ??
codice:
rds.Open "Ordini", conn, 2, 3
rds.MoveFirst
Do While Not rds.EOF
qTipo = "Select distinct tipoBancale from Ordini "
Set rds = conn.Execute(qTipo)
cboTipo.AddItem rds.Fields("tipoBancale")
rds.MoveNext
Loop
rds.close