I think this will be enough to get you there. If you need any addtional help, let me know.
To create a router database that can be used by 97 users and above:
1. Create a new 97 access database.
2. You should name this original file name and keep it in the original location. (See below about where to but your frontends.)
3. Create a new form (make this form your startup form)
4. Add a button to the form (cmdOpen).
5. Add the code below to the click event of the button and the open event of the form respectively.
6. In the code, “FilePath” refers to the location of your file. Replace “FilePath with that location (i.e. C:\MyDb\). I generally place mine in a folder called FrontEnd within the upper level folder.
7. Also, “FileName” refers to the original name of the database with 97, XP or 00 placed on the end depending on the version of that frontend.
8. Also, “YourNetworkUserID” refers to your user id. This allows you to edit the router in case you change file locations or some other feature.
9. SysCmd(acSysCmdAccessVer) = 10 for XP I have forgotten what it is exactly for 97 and 2000. All you need to do is create s simple button that displays a message box. Have the message box display this piece of information and run it in both platforms (97 and 2000). (For example Msgbox “Version No. = “ & SysCmd(acSysCmdAccessVer)) Once you have the two numbers, put them in the code below in the proper order.
10. Once you have finished compile and save all modules.
11. Compact and repair the database
12. You should then open it with a 2000 or XP machine to ENABLE it. (Do not perform a conversion!!!)
13. When you enter the database it should display the form. When you are ready to enter the database just hit the open button.
14. When a user enters the database it should read their version number and route them immediately.
************************************************************************
Private Sub cmdOpen_Click()
Dim strVerNo As Double
Dim stAppName As String
strVerNo = SysCmd(acSysCmdAccessVer)
If strVerNo < 9 Then
stAppName = "MSAccess.Exe FilePath\FileName97.mdb"
ElseIf strVerNo = 10 Then
stAppName = "MSAccess.Exe FilePath\FileNameXP.mdb"
End If
Call Shell(stAppName, 1)
DoCmd.Quit
End Sub
***********************************************************************
Private Sub Form_Open(Cancel As Integer)
Dim strVerNo As Double
Dim stAppName As String
strVerNo = SysCmd(acSysCmdAccessVer)
If Environ$("UserName"

= "YourNetworkUserID" Then
If strVerNo < 9 Then
stAppName = "MSAccess.Exe FilePath\FileName97.mdb"
ElseIf strVerNo = 10 Then
stAppName = "MSAccess.Exe FilePath\FileNameXP.mdb"
End If
Call Shell(stAppName, 1)
DoCmd.Quit
End If
End Sub