Problem With Datatype Text? Or Very Big Varchar?

I have the following form in this adress:(it's framework 1.1 asp.net vb.net)
http://admin.artemrede.pt/login.aspx?ReturnUrl=%2fdefault.aspx
the utilizador is:  teste
palavra passe is: 12345

I'm using some text datatypes and some very big varchars the problem is that when you try to add a new record or to edit a existing record, if for example in one of the very big varchars or text, textboxes, several lines of text, It only puts in the database the 2 first words that you write.
 I used the VS debug and apparently everything looks ok......(if it would I probably hadn't this error....)
 
Dim OurConnection As SqlConnection
OurConnection = New SqlConnection(conn_default)
Dim OurCommand As SqlCommand
OurCommand = New SqlCommand("Insert Into espectaculo (foto_destaque, thumb, area_prog, nome_espectaculo, coord, nome_comp, duracao, f_etaria, sinopse, iterancia, ficha, bio_interv, bio_comp, link_comp, notas_imprensa) Values (@fotod, @thumb, @areap, @ne, @coord, @nc, @duracao, @fe, @sinopse, @it, @ficha, @bioI, @bioC, @link, @notasp)", OurConnection)
If (foto_destaque.Text = "") Then
OurCommand.Parameters.Add("@fotod", SqlDbType.VarChar, 12).Value = " "
Else
OurCommand.Parameters.Add("@fotod", SqlDbType.VarChar, 12).Value = foto_destaque.Text
End If
If (thumb.Text = "") Then
OurCommand.Parameters.Add("@thumb", SqlDbType.VarChar, 12).Value = " "
Else
OurCommand.Parameters.Add("@thumb", SqlDbType.VarChar, 12).Value = thumb.Text
End If
If (area_prog.Text = "") Then
OurCommand.Parameters.Add("@areap", SqlDbType.VarChar, 50).Value = " "
Else
OurCommand.Parameters.Add("@areap", SqlDbType.VarChar, 50).Value = area_prog.Text
End If
If (nome_esp.Text = "") Then
OurCommand.Parameters.Add("@ne", SqlDbType.VarChar, 100).Value = " "
Else
OurCommand.Parameters.Add("@ne", SqlDbType.VarChar, 100).Value = nome_esp.Text
End If
If (coord.Text = "") Then
OurCommand.Parameters.Add("@coord", SqlDbType.VarChar, 100).Value = " "
Else
OurCommand.Parameters.Add("@coord", SqlDbType.VarChar, 100).Value = coord.Text
End If
If (nome_comp.Text = "") Then
OurCommand.Parameters.Add("@nc", SqlDbType.VarChar, 50).Value = " "
Else
OurCommand.Parameters.Add("@nc", SqlDbType.VarChar, 50).Value = nome_comp.Text
End If
If (duracao.Text = "") Then
OurCommand.Parameters.Add("@duracao", SqlDbType.VarChar, 25).Value = " "
Else
OurCommand.Parameters.Add("@duracao", SqlDbType.VarChar, 25).Value = duracao.Text
End If
If (faixa.Text = "") Then
OurCommand.Parameters.Add("@fe", SqlDbType.VarChar, 50).Value = " "
Else
OurCommand.Parameters.Add("@fe", SqlDbType.VarChar, 50).Value = faixa.Text
End If
If (sinopse.Text = "") Then
OurCommand.Parameters.Add("@sinopse", SqlDbType.VarChar, 8000).Value = " "
Else
OurCommand.Parameters.Add("@sinopse", SqlDbType.Text, 16).Value = sinopse.Text
End If
If (itener.Text = "") Then
OurCommand.Parameters.Add("@it", SqlDbType.VarChar, 200).Value = " "
Else
OurCommand.Parameters.Add("@it", SqlDbType.VarChar, 200).Value = itener.Text
End If
If (ficha.Text = "") Then
OurCommand.Parameters.Add("@ficha", SqlDbType.Text, 16).Value = " "
Else
OurCommand.Parameters.Add("@ficha", SqlDbType.Text, 16).Value = ficha.Text
End If
If (bio_interv.Text = "") Then
OurCommand.Parameters.Add("@bioI", SqlDbType.Text, 16).Value = " "
Else
OurCommand.Parameters.Add("@bioI", SqlDbType.Text, 16).Value = bio_interv.Text
End If
If (bio_comp.Text = "") Then
OurCommand.Parameters.Add("@bioC", SqlDbType.Text, 16).Value = " "
Else
OurCommand.Parameters.Add("@bioC", SqlDbType.Text, 16).Value = bio_comp.Text
End If
If (linkComp.Text = "") Or (linkComp.Text = "http://") Then
OurCommand.Parameters.Add("@link", SqlDbType.VarChar, 100).Value = " "
Else
OurCommand.Parameters.Add("@link", SqlDbType.VarChar, 100).Value = linkComp.Text
End If
If (notas_press.Text = "") Then
OurCommand.Parameters.Add("@notasp", SqlDbType.VarChar, 5000).Value = " "
Else
OurCommand.Parameters.Add("@notasp", SqlDbType.VarChar, 5000).Value = notas_press.Text
End If
 
 
 
OurConnection.Open()
OurCommand.ExecuteNonQuery()
OurConnection.Close()
carrega()
'grid1.DataBind()
End If
End Sub
 

Sub carrega()
conn_default = ConfigurationSettings.AppSettings("ArtemredeConnection")
Dim OurConnection As SqlConnection
OurConnection = New SqlConnection(conn_default)
OurConnection.Open()
 
Dim OurCommand As SqlCommand
Dim SelectCommand As String
SelectCommand = "select id_espectaculo, area_prog, nome_espectaculo, nome_comp from espectaculo"
OurCommand = New SqlCommand(SelectCommand, OurConnection)
 
Dim Select_DataAdapter As New SqlDataAdapter(OurCommand)
Dim Select_DataSet As New DataSet
'Dim SP_DataTable_Rowcount As Integer
Select_DataAdapter.Fill(Select_DataSet, "Espectaculos")
grid1.DataSource = Select_DataSet
grid1.DataBind()
OurConnection.Close()
 
 
End Sub