Problema de Insercion con sql 2005 express y VB 2005

[n_e_r_o_n]

Buenas tardes ojala y alguien me pueda ayudar, bueno mi problema es de que quiero insertar un registro nuevo a mi bd y no me deja, no me marca errores ni nada de hecho en mi formulario si se insertan los datos y lo reviso en mi bd y no esta el registro, uso un storeprocedure y mi codigo es el siguiente:


Dim CnnString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Coltizacion.mdf;Trusted_Connection=yes;Integrat ed Security=True;User Instance=True"


Dim SqlCnn As SqlConnection
SqlCnn = New SqlConnection(CnnString)



Try


Dim comando As New SqlCommand()
comando = New SqlCommand("Insertarpro", SqlCnn)
comando.CommandType = CommandType.StoredProcedure



comando.Parameters.Add("@Clave", SqlDbType.Char, 10)
comando.Parameters.Add("@Social", SqlDbType.Char, 50)
comando.Parameters.Add("@Nombre", SqlDbType.Char, 50)
comando.Parameters.Add("@Apellido", SqlDbType.Char, 50)
comando.Parameters("@Clave").Value = Me.txtpro.Text.ToString
comando.Parameters("@Social").Value = Me.txtsocial.Text.ToString
comando.Parameters("@Nombre").Value = Me.txtnombre.Text.ToStrin
comando.Parameters("@Apellido").Value = Me.txtapellido.Text.ToStrin

SqlCnn.Open()

comando.ExecuteNonQuery()


SqlCnn.Close()
comando = Nothing



Catch ex As Exception
MsgBox("Error: " & ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Información del Sistema")


End Try


Bueno espero y alguien pueda ayudarme gracias.