Erro Failed to convert parameter value from a String to a Int32 Vb.net e SQL

Estou a enfrentar um problema a tentar inserir dados, o erro diz que está relacionado com a data, já tentei alterar o formato da data e o erro continua.

Codigo:

Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick      Dim command As New SqlCommand("insert into funcionarios(id, funcid, pnome, apelido, datanascimento, naturalidade, estadocivil, genero, documentotipo, documentoid, telefone, email, endereco, certificadocopia, cvcopia, bicopia, nuitcopia, diplomacopia, dataingressao, datasaida, banco, titular, numeroconta, nib, afetacao, categoria, funcao, progressao, carreira, dependentes, filhos, mulher, departamento, fotografia, dataregisto, dataatualizacao, mulhernome, filhonome1, filhonome2, filhonome3, filhonome4, filhonome5) values (@id, @funcid, @pnome, @apelido, @datanascimento, @naturalidade, @estadocivil, @genero, @documentotipo, @documentoid, @telefone, @email, @endereco, @certificadocopia, @cvcopia, @bicopia, @nuitcopia, @diplomacopia, @dataingressao, @datasaida, @banco, @titular, @numeroconta, @nib, @afetacao, @categoria, @funcao, @progressao, @carreira, @dependentes, @filhos, @mulher, @departamento, @fotografia, @dataregisto, @dataatualizacao, @mulhernome, @filhonome1, @filhonome2, @filhonome3, @filhonome4, @filhonome5)", conexao)     Dim ms As New MemoryStream     Ffotografia.Image.Save(ms, Ffotografia.Image.RawFormat)     'Dim ms2 As New MemoryStream     'Fcertificado.Image.Save(ms2, Fcertificado.Image.RawFormat)     'Dim ms3 As New MemoryStream     'Fcurricum.Image.Save(ms3, Fcurricum.Image.RawFormat)     'Dim ms4 As New MemoryStream     'Fbidenti.Image.Save(ms4, Fbidenti.Image.RawFormat)     'Dim ms5 As New MemoryStream     'Fnuit.Image.Save(ms5, Fnuit.Image.RawFormat)     'Dim ms6 As New MemoryStream     'Fdiploma.Image.Save(ms6, Fdiploma.Image.RawFormat)      command.Parameters.Add("@id", SqlDbType.Int).Value = txtID.Text     command.Parameters.Add("@funcid", SqlDbType.Int).Value = txtfuncid.Text     command.Parameters.Add("@pnome", SqlDbType.NVarChar).Value = txtnome.Text     command.Parameters.Add("@apelido", SqlDbType.NVarChar).Value = txtapelido.Text     command.Parameters.Add("@datanascimento", SqlDbType.Date).Value = datanascimento.Value.ToString("yyyy-MM-dd")     command.Parameters.Add("@naturalidade", SqlDbType.NVarChar).Value = cmbnaturalidade.SelectedItem     command.Parameters.Add("@estadocivil", SqlDbType.NVarChar).Value = cmbestado.SelectedItem     command.Parameters.Add("@genero", SqlDbType.NVarChar).Value = cmbgenero.SelectedItem     command.Parameters.Add("@documentotipo", SqlDbType.NVarChar).Value = cmbtipoid.SelectedItem     command.Parameters.Add("@documentoid", SqlDbType.BigInt).Value = txtdocn.Text     command.Parameters.Add("@telefone", SqlDbType.BigInt).Value = txttelefone.Text     command.Parameters.Add("@email", SqlDbType.Int).Value = txtemail.Text     command.Parameters.Add("@endereco", SqlDbType.NVarChar).Value = txtendereco.Text     ' command.Parameters.Add("@certificadocopia", SqlDbType.Image).Value = ms2.ToArray()     'command.Parameters.Add("@cvcopia", SqlDbType.Image).Value = ms3.ToArray()     'command.Parameters.Add("@bicopia", SqlDbType.Image).Value = ms4.ToArray()     'command.Parameters.Add("@nuitcopia", SqlDbType.Image).Value = ms5.ToArray()     'command.Parameters.Add("@diplomacopia", SqlDbType.Image).Value = ms6.ToArray()     command.Parameters.Add("@dataingressao", SqlDbType.Date).Value = dataingressao.Value.ToString("yyyy-MM-dd")     command.Parameters.Add("@datasaida", SqlDbType.Date).Value = ""     command.Parameters.Add("@banco", SqlDbType.NVarChar).Value = txtbanco.Text     command.Parameters.Add("@titular", SqlDbType.NVarChar).Value = txttitular.Text     command.Parameters.Add("@numeroconta", SqlDbType.BigInt).Value = txtnumero.Text     command.Parameters.Add("@nib", SqlDbType.BigInt).Value = txtnib.Text     command.Parameters.Add("@afetacao", SqlDbType.NVarChar).Value = cmbafetacao.SelectedItem     command.Parameters.Add("@categoria", SqlDbType.NVarChar).Value = cmbcategoria.SelectedItem     command.Parameters.Add("@funcao", SqlDbType.NVarChar).Value = cmbfuncao.SelectedItem     command.Parameters.Add("@progressao", SqlDbType.NVarChar).Value = cmbprogressao.SelectedItem     command.Parameters.Add("@carreira", SqlDbType.NVarChar).Value = cmbcarreira.SelectedItem     command.Parameters.Add("@dependentes", SqlDbType.Int).Value = dependentescheck.CheckState     command.Parameters.Add("@filhos", SqlDbType.Int).Value = filhocheck.CheckState     command.Parameters.Add("@mulher", SqlDbType.Int).Value = mulhercheck.CheckState     command.Parameters.Add("@departamento", SqlDbType.NVarChar).Value = cmbdepartamento.SelectedItem     command.Parameters.Add("@fotografia", SqlDbType.Image).Value = ms.ToArray()     'command.Parameters.Add("@dataregisto", SqlDbType.Date).Value = Date.Now     'command.Parameters.Add("@datatualizacao", SqlDbType.Date).Value = Date.Now     command.Parameters.Add("@mulhernome", SqlDbType.NVarChar).Value = txtmulher.Text     command.Parameters.Add("@filhonome1", SqlDbType.NVarChar).Value = txtfilho1.Text     command.Parameters.Add("@filhonome2", SqlDbType.NVarChar).Value = txtfilho2.Text     command.Parameters.Add("@filhonome3", SqlDbType.NVarChar).Value = txtfilho3.Text     command.Parameters.Add("@filhonome4", SqlDbType.NVarChar).Value = txtfilho4.Text     command.Parameters.Add("@filhonome5", SqlDbType.NVarChar).Value = txtfilho5.Text      If conexao.State = ConnectionState.Closed Then         conexao.Open()     End If      If command.ExecuteNonQuery() = 1 Then         MessageBox.Show("Sucesso")      Else         MessageBox.Show("Falha")     End If     conexao.Close() End Sub