Visual Basic.NET - Ayuda con la actualizacion por favor

Hola tengo este codigo que "actualiza" una base de datos pero el problema es k kuando ejecuto me da error en el execute nonquery alguien me puede decir en que fallo, los campos de la bd estan bien escritos, los e ido comprobando y ya no se en que fallo, grcias de antemano.

Public CadenaUpdate As String = "Update clientes set Numero=@Cli,Dni=@Dni,Letradni=@Letra,Nombre=@Nom,Fec_Nacimiento=@Fecn,Direccion=@Dir,Cp=@Cp,Poblacion=@Pob,Provincia=@Pro,Telefono=@Tel,Movil=@Mov,Fax=@Fax,Forma_Pago=@Pag,Cta_Banco=@Cta,Dto=@Dto,Email=@Mail,Fec_alta=@Feca,Observaciones=@Obs,Marca=@Mar,Modelo=@Mod,Chasis=@Cha,Matricula=@Mat,Color=@Col,Km=@Km where Numero=@Cli"

Conexion = New OleDbConnection(CadenaConexion)
Dim CmdUpdate As New OleDbCommand(CadenaUpdate, Conexion)

CmdUpdate.Parameters.Add("@Cli", numcli.Text)
CmdUpdate.Parameters.Add("@Dni", numdni.Text)
CmdUpdate.Parameters.Add("@Letra", lbldni.Text)

CmdUpdate.Parameters.Add("@Nom", txtnombre.Text)
CmdUpdate.Parameters.Add("@Fecn", datanac.Text)
CmdUpdate.Parameters.Add("@Dir", txtdir.Text)
CmdUpdate.Parameters.Add("@Cp", numcp.Text)
CmdUpdate.Parameters.Add("@Pob", txtpoblacion.Text)
CmdUpdate.Parameters.Add("@Pro", txtprovincia.Text)
CmdUpdate.Parameters.Add("@Tel", numtfno.Text)
CmdUpdate.Parameters.Add("@Mov", nummov.Text)
CmdUpdate.Parameters.Add("@Fax", numfax.Text)
CmdUpdate.Parameters.Add("@Pag", cmbpago.Text)
CmdUpdate.Parameters.Add("@Cta", numbanco.Text)
CmdUpdate.Parameters.Add("@Dto", numdto.Text)
CmdUpdate.Parameters.Add("@Mail", txtmail.Text)
CmdUpdate.Parameters.Add("@Feca", datealta.Text)
CmdUpdate.Parameters.Add("@Obs", txtobser.Text)
CmdUpdate.Parameters.Add("@Mar", txtmarca.Text)
CmdUpdate.Parameters.Add("@Mod", txtmod.Text)
CmdUpdate.Parameters.Add("@Cha", txtchasis.Text)
CmdUpdate.Parameters.Add("@Mat", txtmatricula.Text)
CmdUpdate.Parameters.Add("@Col", txtcolor.Text)
CmdUpdate.Parameters.Add("@Km", numkm.Text)
Conexion.Open()
CmdUpdate.ExecuteNonQuery()
CmdUpdate.Cancel()
Conexion.Close()

Mira.. en mis codigos hago lo siguiente para darle valor a los parametros... checa si es por eso

cmdComando.Parameters.Add("@Clave", SqlDbType.Char, 10).Value = Clave