Erro: nenhum valor foi fornecido para um ou mais parâmetros necessário

Estou novamente com problema com esse já olhei minha string update varias vezes, porém não encontrei erro algum. Alguém poderia me ajudar.

Código botão salvar update:

Private Sub btnSalvar_Click(sender As Object, e As EventArgs) Handles btnSalvar.Click

 Case "update"

 chamado.pcodChamado = lblCodChamado.Text
 chamado.pcodComputador = lblCodigoComputador.Text
 chamado.pnumPatrimonio = txtPatrimonio.Text
 chamado.pnumComputador = txtPcLaboratorio.Text
 chamado.pSetor = txtSetor.Text
 chamado.pdtEntrada = mskDataEntrada.Text
 chamado.pdtSaida = mskDataSaida.Text
 chamado.pprobApresentado = txtProblemaApresentado.Text
 chamado.psolucaoEncontrado = txtSolucaoEncontrada.Text

 codigo = Convert.ToInt32(lblCodChamado.Text)

 Try
 chamado.atualizar(codigo)
 Catch ex As Exception
 MessageBox.Show("Erro ao atualizar dados", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
 End Try

 MessageBox.Show("Dados atualizados com sucesso", "Dados Atualizados", MessageBoxButtons.OK, MessageBoxIcon.Information)
 'carregarNomes()

 End Sub

Código da string update:

Public Sub atualizar(ByVal codigo As Integer)

 strComando = "Update Chamado Set dtSaida = '" & pdtSaida & "', " & _
 "probApresentado = '" & pprobApresentado & "', " & _
 "solucaoEncontrado = '" & psolucaoEncontrado & "' " & _
 "Where codChamado = " & codigo

 comando.executaComando(strComando)

 End Sub

Acredito que o erro esteja no comando update.

Obrigado.