Visual Basic.NET - Error al añadir datos

Buenos dias:

Estoy intentando añadir datos y siempre me da el mismo error:

Column 'dni' cannot be nulll

El codigo es el siguiente

Try
Dim lsquery As String
lsquery = "Insert into datos(dni,fechainscripcion,nombre,apellidos) values
(@dni,@fechaalta,@nombre,@apellidos)"
Dim loComando As New MySqlCommand(lsquery, Me.oConexion)
loComando.Parameters.Add(New MySqlParameter("@dni", MySqlDbType.Int32))
loComando.Parameters("@dni").Value = Val(Me.txtDni.Text)
loComando.Parameters.Add(New MySqlParameter("@fechaalta", MySqlDbType.Date))
loComando.Parameters("@fechaalta").Value =
CDate(Me.txtFechaInscripcion.Text)
loComando.Parameters.Add(New MySqlParameter("@nombre", MySqlDbType.VarChar))
loComando.Parameters("@nombre").Value = CStr(Me.txtNombre.Text)
loComando.Parameters.Add(New MySqlParameter("@apellidos",
MySqlDbType.VarChar))
loComando.Parameters("@apellidos").Value = CStr(Me.txtApellidos.Text)
Me.oConexion.Open()
loComando.ExecuteNonQuery()
loComando.Dispose()
Call frmGestionCV_Load(Me, New System.EventArgs)
DesactivarCampos()
ActivarBotones()
Catch ex As Exception
MsgBox("Se ha(n) producido errore(s):" & vbCrLf & ex.Message,
MsgBoxStyle.Critical, "Error(es)")
End Try

La clave principal es dni, y el campo asignado en vb es txtdni.text.

He estado obervando la bd, y si tengo asignado como clave primaria dni

Gracias

pon un punto de interrupcion donde dice:

loComando.Parameters("@dni").Value = Val(Me.txtDni.Text)

y evalua el valor del text box txtDni, las llaves primarias no aceptan valores nulos, y a lo mejor el txtDni no esta regresando ningun valor.