error en la instruccion: "INTERT INTO..." - ¿Qué le pasa?

[(Pato)²]

Hola a todos, estoy haciendo un programa que usa access apra guardar todos sus datos. Me anda todo, salvo el crear usuario... cuando voy a crear uno me aparese el siguiente error:


y este es el codigo de ese form:

Código:

Dim Cambio As Boolean
Dim nuevoU As New ADODB.Recordset
Private Sub Command1_Click()
    If Cambio = True Then
        With nuevoU
            .ActiveConnection = Data
            .Open ("Select * from users where user like'" & Usuar & "'")
        End With
        If (nuevoU.EOF = True) And (nuevoU.BOF = True) Then
            If Contr = Contr2 Then
                Data.Execute ("Insert Into Users ( User, Clave,Recordar) Values ( '" & Usuar & "', '" & Contr & "', 'False')")
                nuevoU.Close
                MsgBox "Usuario Creado"
                Unload Me
                Main.Show
            Else
                MsgBox "Las Contraseñas no coinciden"
                nuevoU.Close
            End If
        Else
            MsgBox "Ya existe el usuario"
            nuevoU.Close
            End If
    Else
        MsgBox "Debes introduir un nuevo usuario y contraseña"
    End If
End Sub

Private Sub Command2_Click()
    If nuevoU.State = 1 Then
        nuevoU.Close
    End If
    Unload Me
    Main.Show
End Sub

Private Sub Form_Load()
    Cambio = False
End Sub

Private Sub Usuar_Change()
    Cambio = True
End Sub

alguien sabe que pasa? ya probe de todo, y sigue sin andar...

Muchas Gracias!

(Pato)²