Vb.NET Erro Não foi fornecido nenhum valor para um ou mais parâmetros

[ivorosa]

Private Sub PAlterar(ByVal intcodigo As Integer)
Using con As OleDbConnection = GetConnection()
Try
con.Open()
Dim sql As String = "UPDATE funcionarios SET nome=?, data=?, morada=?, nif=?, cc=?, telemovel=?, email=? WHERE codigo=" & CInt(intcodigo)
Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
cmd.Parameters.Add(New OleDb.OleDbParameter("@nome", TxtNome.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@data", datafunc.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@morada", TxtMorada.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@nif", TxtNIF.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@cc", TxtCC.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@telemovel", TxtTlm.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Email", TxtEmail.Text))
cmd.ExecuteNonQuery()
MsgBox("Registo alterado com sucesso.", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub



Estou a desenvolver um programa em VB e dá me este erro quando tento alterar um registo: Não foi fornecido nenhum valor para um ou mais parâmetros.