Can anybody tell me what's wrong with this code?
When I install my program via Deployment Disks created
with the StartUp Wizard on my PC, to a PC without VB installed,
I get an error message stating that my database can not
be found.  The path displayed with this error is the path
where the program was designed on my PC, not the target PC.

I've tried everything I can think of, but can't get this to
work.  I'd appreciate some help on understanding what I'm
doing wrong.

This is in my Module1.bas
-------------------------
Option Explicit

Global dbName As String
Global rsName As String
Global db As Database
Global mrstSW113 As Recordset

Sub main()

     Open_Database
     gblnSound = False
     frmMainMenu.Show

End Sub

Public Sub Open_Database()

     dbName = App.Path & "\dbSouthWing113.mdb"
     Set db = OpenDatabase(dbName)
     rsName = "tblMstr"
     Set mrstSW113 = db.OpenRecordset(rsName, dbOpenTable)

     gblnSound = False

End Sub

This is in my frmMainMenu.frm
-----------------------------

Private Sub Form_Load()

    ' ' Notes: Path was set in the Sub Main of Module1.bas.
    Data1.DatabaseName = dbName
    Data1.RecordSource = rsName

    Data1.Refresh

    ' ' Note: Select the starting order of records
    Data1.RecordSource = "Select * from tblMstr ORDER BY ID"

End Sub

This is in my frmAppend.frm
---------------------------
Private Sub Form_Load()

     ' ' Notes: Path was set in the Sub Main of Module1.bas.
    Data1.DatabaseName = dbName
    Data1.RecordSource = rsName

    Data1.Refresh

    Clear_WS
    Disable_Buttons
    Command1(0).Enabled = True
    Command1(3).Enabled = True

End Sub

The error is displayed when I select the following
from the frmMainMenu.frm.

Select Case index
           Case 0
              Me.Hide
              frmAppend.Show

                        Thanks for your help,

                                   Magic