UPPER Case MS Access

Private Sub DHM_AfterUpdate()
' Semua Huruf Jadi Besar
Me!DHM = StrConv(Me!DHM, vbUpperCase)
End Sub