Code:
If cn Is Nothing Then
DBServerName = DLookup("[DBServerName]", "DBParms")
DBName = DLookup("[DBName]", "DBParms")
UID = DLookup("[UID]", "DBParms")
PWD = DLookup("[PWD]", "DBParms")
' THIS IS A FAILED SPOT.
Set rs = CurrentDb.OpenRecordset("SELECT Mode FROM tblMode;")
gsMode
Leave a comment: