antes de começarmos a fazer a impessão vamos fazer um teste em um listbox
Coloque um listbox em seu projeto e e um command Button faça um teste com
o código a seguir no command button para ver se funciona
Dim SQL(10) As string
Dim Placa(10) As string
For f=0 to 9
SQL(f)="SELECT * FROM placas WHERE Right(pal_pla,1)=" & f
rsPla.Open SQL(f), cnSQL, adOpenDynamic, adLockOptimistic
List1.additem "Final " & f
Placa(f)=Placa(f) & rsPla!pla_pla & ","
List1.additem Placa(f)
next f
tenta este código acima em um botão
