[VB6] SELECT con Filter.

[LMondi]

Devo selezionare per codice il prezzo in due Tabelle di un BD Access ciascuna con 30 records (da 0 a 29), il codice in uso é il seguente, ma anche se per la 2^ Tbl apro un nuovo RS (chiudendo il primo) la funzione decade.
Il codice che uso é corretto ? In particolare Filter ?

With CnsCx2
            .ConnectionString = DataConnessione
            .CursorLocation = adUseClient   'tipo di cursore
            .Mode = adModeShareDenyNone     'nessuna limitazione
            .CommandTimeout = 15
            .Open
        End With
  
    RSTcx2.Source = "SELECT Code, PrTot FROM TblRiepilogo2;"
    RSTcx2.Open , CnsCx2, adOpenDynamic, adLockOptimistic
    RSTcx2.Filter = "Code LIKE " & snCod1 & "" 

    Dim ix2 As Integer

'Valori relativi al codice 1:
    RSTcx2.MoveFirst
    Dim dblVal1a(0 To 29)
        dblValTOT11 = 0
        For ix2 = 0 To 29
            dblVal1a(ix2) = RSTcx2("PrTot")
            RSTcx2.MoveNext
            dblValTOT11 = dblVal1a(ix2) + dblValTOT11
        Next ix2

snCod1 é una variabile contenente il valore numerico del codice da selezionare.
Grazie a tutti per la collaborazione.

[LMondi]

Ho superato il problema. Il codice postato funziona ! (Anche se mi rimane il dubbio, forse si potrebbe renderlo più efficiente).
Grazie comunque.