falla store procedure

[mkgreidi]

He probado como me dijiste y me sigue dando el mismo error de antes.Estoy con visual basic
Como lo he ido poniendo de aquella manera y es dificil de seguir pongo de nuevo todo el codigo aqui mas claro

Dim con_string As String = ws.OConnectionString()
Dim conexion As New SqlConnection(con_string)
Dim mycommand As SqlCommand

mycommand = New SqlCommand("spInsertarContactoweb", conexion)
mycommand.CommandType = CommandType.StoredProcedure

mycommand.Parameters.Add("@motivo", SqlDbType.Char, 200).Value = motivo
mycommand.Parameters.Add("@nombre", SqlDbType.Char, 40).Value = nombre
mycommand.Parameters.Add("@apellidos", SqlDbType.Char, 60).Value = apellidos
mycommand.Parameters.Add("@cif", SqlDbType.Char, 10).Value = cif
mycommand.Parameters.Add("@email", SqlDbType.Char, 60).Value = email
mycommand.Parameters.Add("@cargo", SqlDbType.Char, 60).Value = cargo
mycommand.Parameters.Add("@empresa", SqlDbType.Char, 60).Value = nombreemp
mycommand.Parameters.Add("@direccion", SqlDbType.Char, 70).Value = direccion
mycommand.Parameters.Add("@poblacion", SqlDbType.Char, 40).Value = poblacion
mycommand.Parameters.Add("@cp", SqlDbType.Char, 8).Value = cp
mycommand.Parameters.Add("@provincia", SqlDbType.Char, 30).Value = provincia
mycommand.Parameters.Add("@pais", SqlDbType.Char, 30).Value = pais
mycommand.Parameters.Add("@telefono", SqlDbType.Char, 30).Value = telefono
mycommand.Parameters.Add("@info", SqlDbType.Bit, 1).Value = pub
mycommand.Parameters.Add("@ocupacion", SqlDbType.Char, 10).Value = actividad
Try
mycommand.Connection.Open()
mycommand.ExecuteNonQuery()
Catch Exp As SqlException
lbl_mensaje.Text = Exp.Message
End Try

ALTER PROCEDURE spInsertarContactoweb
(
@motivo char(200),
@nombre char(40),
@apellidos char(60),
@cif char(10),
@email char(60),
@cargo char(60),
@empresa char(60),
@direccion char(70),
@poblacion char(40),
@cp char(8),
@provincia char(30),
@telefono char(30),
@info bit,
@ocupacion char(10)
)
AS
/* SET NOCOUNT ON */
Begin
insert into Contactos_web(motivo,nombre,apellidos,cif,email,ca rgo,empresa,direccion,poblacion,codigopostal,provi ncia,telefono,fecha,info,ocupacion) values(@motivo, @nombre, @apellidos, @cif, @email,@cargo,@empresa,@direccion,@poblacion,@cp,@ provincia,@telefono,GETDATE(),@info,@ocupacion)
End
RETURN

Y el error es el siguiente

System.FormatException: No se puede reconocer la cadena como un tipo booleano válido.
Línea 93: mycommand.ExecuteNonQuery()