Ops scusate, non mi sono accorto del SubForum

VB6 + SP6
SQL Server 2000 SP3


Sono sotto transazione...

codice:

        Sql = "SELECT Quantity, BaseEn, BaseL, BaseT, BsDocE, BsDocL, BsDocT FROM MAGAZZINO_B"
        Sql = Sql + vbCrLf + " WHERE "
        Sql = Sql + vbCrLf + "  ICode = '" + Articolo + "'"
        Sql = Sql + vbCrLf + "  AND BNum = '" + Lotto + "'"
        Sql = Sql + vbCrLf + "  AND Dction = 0"

        Set RS5 = File_DB.OpenResultset(Sql, rdOpenKeyset, rdConcurValues, rdExecDirect)
        
        If Not RS5.EOF Then
            GoSub TrovaPrezzo
            GoSub CPrezzoNuovo
        Else
            RS5.Close
            
            Sql = "SELECT LAV, ART, LOTTO, QUANTITA "
            Sql = Sql & " FROM MAGAZZINO_S "
            Sql = Sql & " WHERE TMOVE='S' AND LAV ='" & IDLav & "'"
            Set RS4 = File_DB.OpenResultset(Sql, rdOpenKeyset, rdConcurValues, rdExecDirect) 
            
            TLog ll, sLAMM, ALLINFO, True
            
            If Not RS4.EOF Then
                Articolo = Trim(RS4!ART)
                Lotto = Trim(RS4!LOTTO)
                GoSub TrovaPrezzo
                GoSub CPrezzoNuovo
            Else
                'Condizioni
            End If
            RS4.Close
        End If
Quando istanzio il resultset RS4 mi da il messaggio di errore

Ciao