Access 2000 to 2002

[Dwight Cornett]

I use the following code in Access 97 and 2000 and it
works find however I am getting a compile errors now on
the
Global db2 as currentDb() line now..........
I am new to Access 2002 and this is my first module I
tried to move to this database. Any help would be
appreciated. Basically this module make avail some fields
that are required in a table used to log entry in and out
of the database and some other tables.

What do I need to do to correct this problem.....

Thanks ahead of time....

Global DB2 As CurrentDb()
Global RS2 As Recordset
Global UserPassword As String
Global UserName As String
Global TempSQL As String
Global PwdType As String


Sub AddToTable(UserLogA, UserId, UserName, DateAndTime,
Status, Password)
OpenRS2 UserLogA
RS2.EOF
RS2.AddNew
RS2(UserId) = [UserLogIn]
RS2(UserName) = [UserLogInName]

RS2.Update

Sub OpenRS2(UserLogA)
Set DB2 = CurrentDb()
Set RS2 = DB2.OpenRecordset(UserLogA, dbOpenDynaset)