Ho questo codice:

codice:
    Dim Coll_Matricole As Collection

    On Error GoTo ErrHand

    MatricoleCoinvolte = False

    sSql = " SELECT t.lav_matricola " & _
           " From lavoratore t " & _
           " Where t.lav_codfiscale = '" & UCase(Trim(sCodFisc)) & "'"
           
    Set Rs = Cn.Execute(sSql)
    
    Set Coll_Matricole = New Collection
    
    Do While Not Rs.EOF
       Coll_Matricole.Add Rs(0), "matr"
    Loop
In sostanza la query mi torna N infomazioni ed io devo caricarle sulla collection specificata, qual è la sintassi corretta?