help help help

[gsc1ugs]

yep, i need help, are the hell do i make this:
Dim DB As Database
Dim rs As Recordset
'set db location
Set DB = OpenDatabase(App.Path & "\configuration.mdb")
'Open the Contact table
Set rs = DB.OpenRecordset("SELECT netVESPAWeb.*, ISDefine.SetPreProccessor, altCarriers.Carrier FROM (ISDefine INNER JOIN netVESPAWeb ON ISDefine.ID = netVESPAWeb.ISPreProccessorType) INNER JOIN altCarriers ON netVESPAWeb.SetCarriers = altCarriers.ID", dbOpenDynaset)

global.???????????????????????

Many thanks

[Buzby]

Just use

Global DB As Database 
Global rs As Recordset

in the DECLARATIONS section of a MODULE instead of

Dim DB As Database 
Dim rs As Recordset

Then put this

'set db location 
Set DB = OpenDatabase(App.Path & "\configuration.mdb") 
'Open the Contact table 
Set rs = DB.OpenRecordset("SELECT netVESPAWeb.*, ISDefine.SetPreProccessor, altCarriers.Carrier FROM (ISDefine INNER JOIN netVESPAWeb ON ISDefine.ID = netVESPAWeb.ISPreProccessorType) INNER JOIN altCarriers ON netVESPAWeb.SetCarriers = altCarriers.ID", dbOpenDynaset)

in the load event of the first (normally the MDI) form to be loaded.