Dim db As DAO.Database
Set db = CurrentDb()
Dim DB1 As DAO.Database
Set DB1 = CurrentDb()
Dim DB2 As DAO.Database
Set DB2 = CurrentDb()
Dim DB3 As DAO.Database
Set DB3 = CurrentDb()
Dim DB4 As DAO.Database
Set DB4 = CurrentDb()
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rs3 As DAO.Recordset
Dim rs4 As DAO.Recordset
Dim racun1
Dim racun2

Dim strSQL As String
Dim strSQL1 As String
Dim strSQL2 As String
Dim strSQL3 As String
Dim strSQL4 As String
strSQL2 = "SELECT * FROM tblMaticniList  WHERE [SifSluzba]='" & Me.SifSluzba & "'"
      Set rs2 = DB2.OpenRecordset(strSQL2, dbOpenDynaset)
      With rs2
    .MoveFirst
    racun = rs2!MatBroj
    'If (racun = Null) Then
    racun = Right("0001", 4)
    'Else
    'racun = Right("00000" & (racun + 1), 5)
    'End If
    Do While Not .EOF
        
    rs2.Edit
            rs2!MatBroj = racun & "/" & Me.Godina
            rs2.Update
          racun = Format$(CInt(racun + 1), "0000")
       
   rs2.MoveNext
  Loop
  End With

rs2.Close
DB2.Close
Set rs2 = Nothing
Set DB2 = Nothing
'End If
'Me.List11.Requery