update no bd

[tiago882 0]

Boa tarde alguem poderia me ajudar, estou tentando inserir dados em uma tabela mas ele ta me dando erro e eu não consigo descobrir ocodigo é o sequinte e estar me dando o erro no pintar:

 

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

'Dim cmm As SqlCommand = BD.CriarCommand

Dim samarelo As String = "amarelo"

Dim sazul As String = "azul"

Dim smarron As String = "marron"

Dim svermelho As String = "vermelho"

Dim pintar As String

BD.Abrir()

Try

If CheckBoxList1.Items(0).Selected = True Then

pintar = bd_motivo.inserir(samarelo, sazul, smarron, svermelho) as string

Button1.BackColor = Drawing.Color.Yellow

End If

Finally

BD.Fechar()

End Try

End Sub

 

e o codigo do acesso ao banco é:

 

Public Class bd_motivo

Public Shared Sub inserir(ByVal samarelo As String, ByVal sazul As String, ByVal smarron As String, ByVal svermelho As String)

Dim cmm As SqlCommand = BD.CriarCommand

cmm.CommandText = "update motivo ser amarelo=@amarelo,azul=@azul,marron=@marron,vermelho=vermelho"

cmm.Parameters.Add("@amarelo", SqlDbType.VarChar, 50).Value = samarelo

cmm.Parameters.Add("@azul", SqlDbType.VarChar, 50).Value = sazul

cmm.Parameters.Add("@marron", SqlDbType.VarChar, 50).Value = smarron

cmm.Parameters.Add("@vermelho", SqlDbType.VarChar, 50).Value = svermelho

cmm.ExecuteNonQuery()

End Sub

End Class

 

alguem teria alguma idea?

[quintelab 91]

Beleza tiago882 ?

Cara qual erro que esta dando ?