Visual Basic - Ayuda Con Formulario

Buenos días, Estoy diseñando un formulario de usuario y contraseña y al ejecutarlo me da un error de compilación no se ha definido el tipo definido por el usuario el código que utilice fue:

Private Sub bAceptar_Click()
Dim v1 As Database
Dim v2 As Recordset
Set v1 = OpenDatabase(App.Path + "d1.mdb")
Set v2 = v1.OpenRecordset("clave")
v2.Index = "Clave"
v2.Seek "=", cContraseña
If v2.NoMatch = False Then
Unload Me
menu.Show
Else
x = MsgBox("Acceso Negado", 48)
cContraseña = ""
cContraseña.SetFocus
End If
End Sub

Además cuando intento abrir la base de datos en Access e sale el siguiente cuadro











No se si esto tenga algo que ver con el error que me presenta el formulario