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

[matrik02]

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" .

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

[Hack]

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