Forms do not open in Windows 98

[instructorTek]

Hi I have an app I created which contains several forms. When the app starts the first form which is a splash screen opens and when I click a button on this form, another form opens with a test. The splash screen works fine all the time but the second form does not open on any Windows 98 system only on Win XP although both computers have the same Access 2000 installed. The first form has no significant coding but the second form has VBA and some API programming.
The second form contains the following code:

Private Sub Form_Open(Cancel As Integer)
'Hides the database window
DoCmd.RunMacro "mcrHide"
'Determines the drive letter of CDROM and checks for a file on the CD
'The CD must be in the drive for the user to continue
Dim strDriveLetter As String
Set fso = CreateObject("Scripting.FileSystemObject")

For Each drv In fso.Drives
If drv.drivetype = 4 Then
strDriveLetter = drv.driveletter
End If
Next

If Not fso.FileExists(strDriveLetter & ":\test.txt") = True Then
DoCmd.Close
DoCmd.OpenForm "frmNoCd", acNormal, "", "", , acNormal
End If

End Sub

Can anyone give me an idea as to why the app does not work properly with win 98 although both the win 98 and the win XP machines have Access 2000. Is there an API update or something necessary for Win 98?
Thanks in advance.

 

[PHV]

You may have to dowload the latest (5.6) scripting engine for win9x:

http://msdn.microsoft.com/downloads/list/webdev.asp

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886