Problem With Vb Procedure - Acting With Database

Hi,
I have a problem with the execution of a vb-procedure that should do 2 updates of databasetables.
The procedure runs when the eventhandler registrates that I want make an update within the <asp:detailview..>-controll.
But I get the errormessage:  End-Of-Command requested
This is the procedure:
Public Sub myDetails_Update(ByVal sender As Object, ByVal e As System.EventArgs) handle DetailsView1.Databound
    Dim conn As New SQLConnection("Data Source=.SQLEXPRESS;AttachDbFile=C:Pferdeservice KarleApp_dataPferde.mdf;Integrated Security=True Connection Timeout=30;User Instance=True")
    conn.open()
    Dim cmd As New SqlCommand()
    Dim cmd1 As New SqlCommand()
    cmd.Connection = conn
    cmd.CommandText = "UPDATE News_Kultur set Header = @Header, Ueberschrift_D = @Ueberschrift_D, Ueberschrift_E = @Ueberschrift_E, Text_D = @Text_D, News_Kultur.Text_E = @Text_E"
WHERE (((News_Kultur.ID)=@ArtikelID))"
    cmd.CommandType = CommandType.Text
    cmd1.CommandText = "UPDATE News set Datum= @Datum WHERE ID=@NewsID"
    cmd1.CommandType = CommandType.Text

    cmd.Parameters.add("@Headers", SqlDbType.nvarchar, 50)
    cmd.Parameters.add("@Ueberschrift_D", SqlDbType.nvarchar, 50)
    cmd.Parameters.add("@Ueberschrift_E", SqlDbType.nvarchar, 50)
    cmd.Parameters.add("@Text_D", SqlDbType.Text)
    cmd.Parameters.add("@Text_E", SqlDbType.Text)
    cmd.Parameters.add("@ArtikelID", SqlDbType.Int)

    cmd1.Parameters.add("@Datum", SqlDbType.Datetime)
    cmd1.Parameters.add("@NewsID", SqlDbType.Int)

    cmd.Parameters.add("@Headers").value = DirectCast(DetailsView1.FindControl("Headers"), TextBox).Text
    cmd.Parameters.add("@Ueberschrift_D").value = DirectCast(DetailsView1.FindControl("Ueberschrift_D"), TextBox).Text
    cmd.Parameters.add("@Ueberschrift_E").value = DirectCast(DetailsView1.FindControl("Ueberschrift_E"), TextBox).Text
    cmd.Parameters.add("@Text_D").value = DirectCast(DetailsView1.FindControl("datumTextbox"), TextBox).Text
    cmd.Parameters.add("@Text_E").value = DirectCast(DetailsView1.FindControl("datumTextbox"), TextBox).Text
    cmd.Parameters.add("@ArtikelID").value = DirectCast(DetailsView1.FindControl("datumTextbox"), TextBox).Text
    cmd.ExecuteScalar()
    cmd1.Parameters.add("@Datum").value = DirectCast(DetailsView1.FindControl("Headers"), TextBox).Text
    cmd1.Parameters.add("@NewsID").value = DirectCast(DetailsView1.FindControl("Headers"), TextBox).Text
    cmd1.ExecuteScalar()
    conn.close()
End Sub
 
Regards