Call ConnectServeri ' Ovo je funkcija za spajajne sa serverima
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM tblArtikli", cn
cnKasa.Execute "Delete FROM tblArtikli"
cnKasa.Execute "INSERT tblArtikli(ID_Artikal,Artikal_Ime,Prikazi,MK_Proizvod) SELECT '" & rs.Fields("ID_Artikal") & "','" & rs.Fields("Artikal_Ime") & "','" & rs.Fields("Prikazi") & "','" & rs.Fields("MK_Proizvod") & "'"
rs.Close
Set rs = Nothing