Private Sub Pokreni_Click()
Dim Db As Database
Dim Rs As Recordset
Dim TablicaTekuca As Long
Dim TablicaUkupno As Long
Dim SQL As String
Set Db = CurrentDb
SQL = "SELECT Database,Name FROM MSysObjects WHERE Database Like '*20??_be*' ORDER By Database"
Set Rs = Db.OpenRecordset(SQL)
TablicaUkupno = Rs.RecordCount
For TablicaTekuca = 1 To TablicaUkupno
  Me![TEMPO].Value = TablicaTekuca / TablicaUkupno * 100 ' ActiveX Control
        DoEvents
Next
Me![TEMPO].Value = 0
End Sub