[RESOLVED] How to store the value as capital letter?

I have problem here, How to store the value as a capital letter in the database if I typing the value "a" and it store in the database as "A" .

Code:

---


 'untuk kemas kini data
        With InfoRS6
          .Fields("Blok").Value = Text3.Text
          .Update
        End With

---

Code:

---

.Fields("Blok").Value = UCase(Text3.Text)

---