Hi Vinita:

I've never used the "permission" property, and on a Google search, couldn't
come up with vba either- maybe some of the gurus here can help you there if
you absolutely wish to continue that route.

What I use, is the Window's registry. It's pretty simple to write stuff back
and forth to the registry. I've used it in both my MS Access and MS Word
projects to lock people out, say, after a certain amount of openings or after
a certain date. The following code below checks for the "szUser" and sees
what their profile is:

Function ITO()
On Error GoTo ITO_Err
'***************************************************************************
'Purpose:
'Comments:      1.  Compiles all code in the database if it is uncompiled
'               2.  Writes usage info to custom database properties
'               3.  Writes usage info to the Registry
'               4.  Sets flag to indicate if dbs is due for compacting
'***************************************************************************

'Find out how many times this particular database has been opened
Call IncrementTimesOpened

'Write information to the Registry to indicate usage for this user
lngProfileTimesOpened = GetSetting("z_m_d_s", "Startup", "UsageCount", 1)
SaveSetting "z_m_d_s", "Startup", "UsageCount", lngProfileTimesOpened + 1
SaveSetting "z_m_d_s", "Startup", "LastUsed", Format$(Now(), "yyyy.mm.dd
hh:nn:ss")

ITO_Exit:
   Exit Function
   
ITO_Err:
   'Turn screen updating back on
   Application.Echo True
   
   'Now handle the error
   Select Case err.Number
       Case Else
           Call GlobalErr("ITO", err.Number)
           Resume ITO_Exit
           Resume
   End Select

End Function

Sub IncrementTimesOpened()
'***************************************************************************
'Purpose:       To set a dbs property indicating the number of times the
'               database has been opened
'Parameters:    None
'Returns:       Nothing
'***************************************************************************

On Error GoTo IncrementTimesOpened_Err
Dim rst As Recordset
lngDBTimesOpened = CurrentDb.Properties("TimesOpened")
If IsNull(lngDBTimesOpened) Then
MsgBox "It's null!"
lngDBTimesOpened = 0
Else
Set dbs = CurrentDb
SQLStmt = "SELECT DISTINCTROW SUP.* FROM SUP;"
Set rst = dbs.OpenRecordset(SQLStmt, dbOpenDynaset) 'alborgggg
   With rst
       .MoveLast
       .MoveFirst
       If !Rest = True Then
           lngDBTimesOpened = 0
       Else
           lngDBTimesOpened = lngDBTimesOpened + 1
       End If
       .Edit
       !Rest = False
       .UPDATE
       .Close
   End With
   dbs.Close
End If
CurrentDb.Properties("TimesOpened") = lngDBTimesOpened

IncrementTimesOpened_Exit:
   Exit Sub
   
IncrementTimesOpened_Err:
   Select Case err.Number
       Case 3270           'Error code for "Property not found"
           Set pty = CurrentDb.CreateProperty("TimesOpened", dbDate, 0)
           CurrentDb.Properties.Append pty
           Resume
       Case Else
           Call GlobalErr("IncrementTimesOpened", err.Number)
           Resume IncrementTimesOpened_Exit
           Resume
   End Select
End Sub

A good discussion on this can be also found here-

1)
http://www.tech-archive.net/Archive/Scripting/microsoft.public.scripting.vbscrip
t/2006-09/msg00644.html
2) http://archive.baarns.com/word/faq/wd_macr.asp

Cheers,
Al