Visual Basic - CONTRASEÑA EN BBDD ACCESS

HOLA AMIGO, TENGO UN GRAN PROBLEMA YA QUE NECESITO ESTABLECER UNA CONTRASEÑA PARA MI BASE DE DATOS LA CUAL LA TENGO EN ACCESS. ABRIENDO LA BASE DE DATOS EN EL MENU DE HERRAMIENTAS LE ESTABLECI UNA CONTRASEÑA, AHORA EL PROBLEMA RADICA QUE CUANDO EJECUTO MI PROGRAMA ME DICE NOT A VALID PASSWORD, ESTE ERROR ME IMAGINO QUE RADICA YA QUE UTILIZO LOS CONTROL DATA, Y TODA LA PROGRAMACION ESTA ECHA EN DAO. TENGO EL SIGUIENTE CODIGO PARA ABRIR LA BASE DE DATOS:

Public Sub Abrir()
Set DATA = OpenDatabase(".\CEDULACION.mdb")
Set SEGURI = DATA.OpenRecordset("SEGURIDAD", dbOpenTable)
End If
End Sub

PERO COMO PUEDO HACER TAMBIEN PARA ESPECIFICAR LA CONTRASEÑA AQUI, Y TAMBIEN EN LOS CONTROL DATA.... ESTARE MUY AGRADECIDO DE ANTEMANO

Buenas, yo hice un programa con datas y para poder acceder a la base de datos con contraseña hice:
DataClientes.Connect = ";pwd=XXXXXXXX"

Espero que te sirva

Gracias colega, lo probare a ver que tal, pero y como quedaria esto aqui:

Public Sub Abrir()
Set DATA = OpenDatabase(".\CEDULACION.mdb")
Set SEGURI = DATA.OpenRecordset("SEGURIDAD", dbOpenTable)
End If
End Sub

gracias de antemano

Hazlo de la siguiente manera, estoy seguro que te va a funcionar:
Public WKS As Workspace
Public DATA As Database

Public Sub Abrir()
On Error GoTo 10
Set WKS = CreateWorkspace("", "admin", "", dbUseJet)
Set DATA = WKS.OpenDatabase(".\CEDULACION.mdb", True, False, ";PWD=DIOS84")
Set SEGURI = DATA.OpenRecordset("SEGURIDAD", dbOpenTable)
10
If Err.Number = 3024 Then
Varmsg1 = MsgBox("No es localizada la Base de Datos... Gracias", vbCritical, "Atención")
Exit Sub
End If
End Sub