Visual Basic.NET - problema vb .net con access

Saludos

recientemente estoy utilizando el vb .net, ya tengo hecho un codigo para el boton de agregar registros pero me marca un error al momento de ejecutar la consulta, en mi base de datos en access tengo dos ID: iddatos; este esta en autoincremento, y otro idsesion ente esta en integer

no tengo idea de cual sea mi error,

gracias por su atencion
espero su respuesta
hasta pronto
gracias

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As OleDb.OleDbConnection
Dim orden As OleDb.OleDbCommand
Dim cons As String
conn = New OleDb.OleDbConnection("Provider=Microsoft.jet.OLEDB.4.0; Data Source=C:\Documents and Settings\sammy\Mis documentos\Proyectos de Visual Studio\WindowsApplication9\Mensaj.mdb")
'command
Dim nm, ap, di, de, te, mo, us, pass, passc
nm = TextBox1.Text
ap = TextBox2.Text
di = TextBox3.Text
de = TextBox4.Text
te = TextBox5.Text
mo = TextBox6.Text
us = TextBox7.Text
pass = TextBox8.Text
passc = TextBox9.Text
cons = "insert into datosu(nm,ap,di,de,te,mo,us,pass) values(@nombre,@apellido,@direccion,@departamento,@telefono,@movil,@usuario,@contraseña)"
orden = New OleDb.OleDbCommand(cons, conn)
'id
orden.Parameters.Add(New OleDb.OleDbParameter("@iddatos", OleDb.OleDbType.Integer))
'orden.Parameters("@iddatos").Value()
'para el nombre
orden.Parameters.Add(New OleDb.OleDbParameter("@nombre", OleDb.OleDbType.WChar))
orden.Parameters("@nombre").Value = nm
'para los apellidos
orden.Parameters.Add(New OleDb.OleDbParameter("@apellidos", OleDb.OleDbType.WChar))
orden.Parameters("@apellidos").Value = ap
'para la direccion
orden.Parameters.Add(New OleDb.OleDbParameter("@direccion", OleDb.OleDbType.WChar))
orden.Parameters("@direccion").Value = di
'para departamento
orden.Parameters.Add(New OleDb.OleDbParameter("@departamento", OleDb.OleDbType.WChar))
orden.Parameters("@departamento").Value = de
'telefono
orden.Parameters.Add(New OleDb.OleDbParameter("@telefono", OleDb.OleDbType.Integer))
orden.Parameters("@telefono").Value = te
'movil
orden.Parameters.Add(New OleDb.OleDbParameter("@movil", OleDb.OleDbType.Integer))
orden.Parameters("@movil").Value = mo
'usuario
orden.Parameters.Add(New OleDb.OleDbParameter("@usuario", OleDb.OleDbType.WChar))
orden.Parameters("@usuario").Value = us
'contraseña
orden.Parameters.Add(New OleDb.OleDbParameter("@contraseña", OleDb.OleDbType.WChar))
orden.Parameters("@contraseña").Value = pass

orden.Parameters.Add(New OleDb.OleDbParameter("@idcontacto", OleDb.OleDbType.Integer))
'orden.Parameters("@nombre").Value = nm
orden.Connection.Open()

orden.ExecuteNonQuery() ' aqui es donde marca el error

orden.Connection.Close()

End Sub