Cambio en acceso usuarios de mdb a accdb

Baje una base de datos de acceso usuarios que esta en formato 2003 es decir en mdb. Yo le agregué mis tablas, consultas y formularios y funciona perfectamente pero si la guardo como access 2007, es decir accdb no me funciona. En cuanto pongo el nombre de usuario y lacontraseña me da un error en el modulo el cual está dela siguiente forma
Private Sub Comando5_Click()
'*********************************************************
'*********************************************************
'Comprueba que existe el usuario
Dim A As Database
Dim B As Recordset
Dim Consulta As String
Dim Consu As String
C = C + 1
Set A = CurrentDb
Consulta = "SELECT Usuario.usuario, Usuario.Password,usuario.nom_usuario,usuario.activo,usuario.Admin,usuario.agrega,usuario.elimina,usuario.modifica " & _
"FROM usuario " & _
"WHERE ((Usuario.usuario)='" & Me.clave & "');"
Set B = A.OpenRecordset(Consulta, dbOpenSnapshot)
If B.EOF Then
 MsgBox "El Usuario NO Existe", vbCritical, "Usuario no existe"
Else
 If B!Activo = True Then
If B![Password] = Me![Password] Then
NombreU = B!nom_usuario 'aqui se almacena el nombre del usuario logeado
UsuarioU = Me![clave] 'aqui se almacena el usuario logeado
AgregaU = B!Agrega  'si tiene permiso para agregar
EliminaU = B!Elimina 'si tiene permiso para eliminar
ModificaU = B!Modifica 'si tiene permiso para modificar
FechaU = fecha 'agrega la fecha actual
DoCmd.OpenForm "menú"
Forms![menú]!nombre = NombreU 'pone el nombre del usuario en el form menu
Forms![menú]!usuario = UsuarioU ''pone el usuario en el form menu
Cerrar
Else
MsgBox "Password Incorrecta", vbCritical, "Password incorrecto"
End If
Else
MsgBox "El usuario no esta activo", vbCritical, "Usuario inactivo"
End If
End If
B.Close
If C >= 8 Then
MsgBox "El Sistema se cerrara", vbExclamation, "No se Aceptan más claves"
 DoCmd.Quit
End If
End Sub
El error me lo da en
Set B = A.OpenRecordset(Consulta, dbOpenSnapshot)
La vedad es que no entiendo porque, será porque no se mucho de esto.