Pasar una cadena a Mayusculas

Miriam
30 de Septiembre del 2004
Quiero coger el valor de un text y guardarlo en la base de datos en mayusculas, tengo la siguiente instruccin pero no me hace nada, parece ser que Ucase no funciona correctamente:

Comando.Parameters.Add(New SqlParameter("@Nombre", SqlDbType.Char, 50))
ValorAInsertar = TxtNombre.Text
Comando.Parameters("@Nombre").Value = Ucase(ValorAInsertar)