Private Sub cmdRoba_Vozilo_Click()
      gridPrometi.Visible = False
      gridLager.Visible = True
      TStart = GetTickCount
  If (txtDataOD) = "__.__.____" Then Me.txtDataOD.Text = "01.01." & Format(Now(), "yyyy")
  If (txtDataDO) = "__.__.____" Then Me.txtDataDO.Text = "31.12." & Format(Now(), "yyyy")
  ' ovde bi trebalo da zapocniva progresbarot  

    Set rsLager = New ADODB.Recordset
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
        cmd.ActiveConnection = cn
        cmd.CommandType = adCmdStoredProc
        cmd.CommandText = "spLagerVoziloKorisnik"
        cmd.Parameters.Refresh
        cmd.Parameters("@Korisnik") = rsKorisnici.Fields("ID_Korisnik")
        cmd.Parameters("@OdData") = txtDataOD
        cmd.Parameters("@DoData") = txtDataDO
    Set rsLager = cmd.Execute()
    Set cmd = Nothing
   ' ovde treba da zavrsuva progresbarot
  
   Set gridLager.DataSource = rsLager
          gridLager.ReBind
          gridLager.Refresh
          gridLager.Caption = "ËÀÃÅÐ ËÈÑÒÀ ÍÀ ÑÓÐÎÂÈÍÈ ÂÎ ÂÎÇÈËÎ ÇÀ : " & rsKorisnici.Fields("Ime")
          gridLager.Columns(4).Caption = "ÂÎ ÀÏÀÐÀÒÈ"
          gridLager.Columns(5).Caption = "ÂÎ ÂÎÇÈËÎ"
         Call SumiGridLager(rsLager)

End Sub