Visual Basic - miren este codigo,me da este error ayudanme

Private Sub COMMAND1_CLICK()
XNUMERO = Text1.Text
XDEPARTAMENTO = Text2.Text
XIDENTIFICACION = Text3.Text
XPROCESADOR = Text4.Text
XMEMORIA = Text5.Text
XDISCO = Text6.Text
XIMPRESORA = Text7.Text

Open Database(DBC1) For Random As TABLA1
USE TABLA1
Insert Into(numero, DEPARTAMENTO, IDENTIFICACION, PROCESADOR, MEMORIA, DD, IMPRESORA)(XNUMERO, XDEPARTAMENTO, XIDENTIFICACION, XPROCESADOR, XMEMORIA, XDISCO, XIMPRESORA)
Close Databases
Clear
End Sub

error que me da Error de compilacion
Procedimiento sub o funcion no definido

cual sera el error????

En que linea especificamente te da error???

en la sentencia aparece "numero" y "xnumero", pero no veo ninguna línea donde se adjudique valor a estas variables.

saludos