Code:

Select a.artikala as artikl, a.sifre as sifre, sum(a.kolicine) as kolicine from popis a, lager b where a.artikl=b.artikl group by 1,2

Code:

             TXTLink1 = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="
             TXTLink2 = Chr(34)
             TXTLink3 = "DBQ=" & Dirt & ";DefaultDir=" & Dirt & ";Driver={Microsoft Access dBASE Driver (*.dbf, *.ndx, *.mdx)};DriverId=533;FIL=dBASE;FILEDSN=" & App.Path & "\DbfODBC;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
             TXTLink = TXTLink1 & TXTLink2 & TXTLink3 & TXTLink2

               Set TxtAdoConn = New ADODB.Connection
               TxtAdoConn.Open TXTLink
               
              File="Tablica1"
   
               Upit = "SELECT STORNO, PRODUCT FROM " & File & ".dbf"
               
              'Kreiraj i otvori recordset
               Set TxtAdoRS = New ADODB.Recordset
               TxtAdoRS.Open Upit, TxtAdoConn
     
               With TxtAdoRS
                 .MoveFirst
                    Do While Not .EOF
                                
                      STORNO= !STORNO
                      PRODUCT = !PRODUCT 
                     .Movenext
                   Loop
                End With