Converting VBA For Access97 To Access2000

My organization recently upgraded from Office97 to Office2000. A database that we had on 97 is giving us errors when we try to run it under 2000. I have been able to fix some of the errors. This one has me stumped.

I'm getting an error 13; type mismatch and it is calling out this line:

Set Mydb = DBEngine.Workspaces(0).Databases(0)

Any help is greatly appreciated. This is the complete function:

Function RegistrationData(Reqinfo As String) As String
On Error GoTo error_registrationdata:


Dim Mydb As DAO.Database
Dim MyRS As DAO.Recordset


Set Mydb = DBEngine.Workspaces(0).Databases(0)
Set MyRS = Mydb.OpenRecordset("REGISTRATION")

Select Case Reqinfo

Case "CommandName"
RegistrationData = MyRS.COMMAND

Case "CommandCode"
RegistrationData = MyRS.COM_CODE

Case "CommandAddress"
RegistrationData = MyRS.COM_ADDRESS

Case "CommandManager"
RegistrationData = MyRS.COM_MANAGER

Case "CommandPOC"
RegistrationData = MyRS.COM_POC

Case "CommandPhone"
RegistrationData = MyRS.COM_PHONE

Case "CommandFax"
RegistrationData = MyRS.COM_FAX

Case "ClinicName"
RegistrationData = MyRS.CLINIC

Case "ClinicCode"
RegistrationData = MyRS.CLI_CODE

Case "ClinicAddress"
RegistrationData = MyRS.CLI_ADDRESS

Case "ClinicManager"
RegistrationData = MyRS.CLI_MANAGER

Case "ClinicPOC"
RegistrationData = MyRS.CLI_POC

Case "ClinicPhone"
RegistrationData = MyRS.CLI_PHONE

Case "ClinicFax"
RegistrationData = MyRS.CLI_FAX

Case "MailDir"
RegistrationData = MyRS.MAILDIR

Case "HROFile"
If Not IsNull(MyRS.HROFile) Then
RegistrationData = MyRS.HROFile
Else
RegistrationData = "error"
End If

Case "AboutYN"
RegistrationData = MyRS.ABOUTYN

Case "ActivityName"
RegistrationData = MyRS.ActivityName

Case Else
RegistrationData = "error"

End Select

end_registrationdata:
Exit Function

error_registrationdata:
MsgBox "There was an error retrieving data from the Registration Table. Please ensure all data is filled in correctly."
RegistrationData = "x"
Resume end_registrationdata:

End Function