Código en access 2010

Por que este código no me funciona. Me pone que no se ha definido sub o Function.

Dim BBDD As Database

Dim clientes As Recordset2
Set BBDD = CurrentDb
Set clientes = OpenRecordset("clientes")
clientes.AddNew
clientes!FECHA = Forms!nueva oferta!FECHA
clientes!EMPRESA = Forms!nueva oferta!EMPRESA

clientes!CONTACTO = Forms!nueva oferta!CONTACTO
clientes!DNI_CIF = Forms!nueva oferta!DNI_CIF
clientes!CC = Forms!nueva oferta!CC....................................

CLIENTES.Update
CLIENTES.Close
End Sub