Problema raro al añadir datos

[serbc24]

Hola a todos:

Tengo una bd en access y cada vez que añado datos me da un error, la cosa es que si me los añade.

Estoy probando campo a campo, y siempre me da el mismo error

Se han producido los siguientes errores:
No coinciden los tipos de datos en la expresion de criterios.

Aqui os pongo como hago para añadir un registro

Dim lsQuery As String
lsQuery = "Insert INTO AFILIADOS(NUMREGISTRO) values (@NUMREGISTRO)"
Try
Dim locomando As New OleDbCommand(lsQuery, Me.oconexion)
locomando.Parameters.Add(New OleDbParameter("@NUMREGISTRO", OleDbType.Integer))
locomando.Parameters("@NUMREGISTRO").Value = Val(Me.txtNumRegistro.Text)
Me.oconexion.Open()
locomando.ExecuteNonQuery()
locomando.Dispose()
Catch ex As Exception
MsgBox("Se han producido los siguientes errores:" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "Error")
Catch ex As SqlException
MsgBox("Se han producido los siguientes errores:" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "Error")
Finally
Me.oconexion.Close()
End Try
El campo NUMREGISTRO es Numerico de tipo Entero Largo

Alguna solucion, gracias