Module SqlAddressModule Private Const mainCartDB As String = "jomtTesterDB.jomtCartridgeTbl" Private Const testCartDB As String = "jomtTesterServerDB.jomtCartridgeTbl" Private Const mainHFTestDB As String = "jomtTesterDB.jomtHFTestTbl" Private Const testHFTestDB As String = "jomtTesterServerDB.jomtHFTestTbl" Private Const mainRFTestDB As String = "jomtTesterDB.jomtRFTestTbl" Private Const testRFTestDB As String = "jomtTesterServerDB.jomtRFTestTbl" Private Const mainPD1CntDB As String = "jomtTesterDB.jomtMES_PD1Tbl" Private Const testPD1CntDB As String = "jomtTesterServerDB.jomtMES_PD1Tbl" Private Const mainNonTDDB As String = "jomtTesterDB.jomtNonTDTbl" Private Const testNonTDDB As String = "jomtTesterServerDB.jomtNonTDTbl" Private Const MainReturnDB As String = "jomtTesterDB.jomtReturnTbl" Private Const TestReturnDB As String = "jomtTesterServerDB.jomtReturnTbl" Public Const LoginDB As String = "jomtAccountDB.jomtTesterUserIDTbl" Public Const InfoRegStateDB As String = "jomtTesterDB.jomtInfoRegStateTbl" Public ApplyCartDB As String = mainCartDB Public ApplyHFTestDB As String = mainHFTestDB Public ApplyRFTestDB As String = mainRFTestDB Public ApplyPD1CntDB As String = mainPD1CntDB Public ApplyNonTDDB As String = mainNonTDDB Public ApplyReturnDB As String = MainReturnDB Public Sub ServerChanger(ChangeState As Boolean) If ChangeState = True Then applyCartDB = testCartDB applyHFTestDB = testHFTestDB ApplyRFTestDB = testRFTestDB ApplyPD1CntDB = testPD1CntDB Else applyCartDB = mainCartDB applyHFTestDB = mainHFTestDB ApplyRFTestDB = mainRFTestDB ApplyPD1CntDB = mainPD1CntDB End If End Sub End Module