Dim Vodomer As String
    Vodomer = "01093746"
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM Vodomjeri WHERE Broj_vodomjera='" & Vodomer & "'"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
  Select Case rs.RecordCount
         Case 0
            MsgBox "ne postoi vodomer sa taj broj"
         Case 1
            rs.Edit
            rs.Fields("Broj_vodomjera") = "68956731"
            rs.Fields("Datum_ugradnje") = Now()
            rs.Update
            MsgBox "Uspesna Promjena"
         Case Is > 1
            MsgBox "ima poveke od jedan vodomer u tabela"
       
  End Select
    
    rs.Close
    db.Close
Set db = Nothing
Set rs = Nothing