Visual Basic - fallo de tipos....AYUDAAAAAAAAA

Buenos dias tengo un problema con un programilla que estoy haciendo; accedo a una base de datos y quiero actuar sobre ella cambiando algunos valores en los campos pero al decrementar unos campos me da fallo de tipo, porque me da ese fallo y porque no actuo sobre la base de datos???os pongo el codigo y gracias por vuestra ayuda de antemano:

Dim BDD As Database
Dim TBL1 As Recordset
Dim INV As String
Dim CANTINV As String
Dim REFERENCIA As String
Dim cant As Integer
Dim cantidadnueva As String

Public Sub AMOSALLA()

Dim BDD As Database
Dim TBL1 As Recordset

Set BDD = OpenDatabase("C:Documents and SettingsWindInertiaEscritorioRAFAprueba base de datosase de datos.mdb")

Set TBL1 = BDD.OpenRecordset("INVENTARIO")

REFERENCIA = (InputBox("referencia del componente:", "retirada de material", "INTRODUCE ALGO COÑO"))
cant = (InputBox("cantidad del componente:", "retirada de material", "INTRODUCE ALGO COÑO"))

CANTINV = "SELECT TBL1.CANTIDAD FROM TBL1 WHERE TBL1.IDENTIFICADOR=referencia"
cantidadnueva = CANTINV - cant ' AQUI ME DA EL PROBLEMA'
MODIFICOCANT = "UPDATE TBL1 SET CANTIDAD=cantidadnueva WHERE IDENTIFICADOR= referencia "
BDD.Execute MODIFICOCANT

If CANTINV <= 0 Then
INCORRECTO = MsgBox("placa no realizable", vbCritical, " SYSTEM")
End If

End Sub

cantidadnueva = Val(CANTINV) - Val(cant)

Gracias amig@ por tu ayuda pero si puedes contestama porque no estoy seguro si estoy accediendo bien a la base de datos, cuando le es puesto lo de val() no me daba pbs pero no me lee bien la base de datos veo en la ventana de datos que cree que los datos de mi tabla son cero por eso creo k no accede bien a la base de datos, no se si estoy en dao o en ado, ¿como puedo arreglar esto?
gracias y un saludo
rafa de sevilla, españa

Bueno, primero por la forma de abrir la BD 'estás en dao'

Segundo. La variable "CANTINV" te devuelve cero porque es una cadena y no un número. Creo que intentas hacer una consulta SQL pero no se la aplicas a ningún recordset.

Tercero. Aunque aplicaras la sentencia a un recordset, ésta fallaría ya que estás incluyendo dento de la consulta la variable "referencia" como un campo de la tabla, cuando no lo es.

Cuarto. La forma sencilla sería hacer un Update a la tabla sin necesidad de recordsets:
"UPDATE inventario SET cantidad = cantidad - Val(cant) WHERE identificador = '" & referencia & "'"