Line 94:
Line 95: adoconn.ConnectionString = UtilityFunctions.GetConnString("ADODB", cBizSettings.GetSettingsValue("DBName"), cBizSettings.GetSettingsValue("ServerName"), Val(cBizSettings.GetSettingsValue("DBPort")), cBizSettings.GetSettingsValue("DBLogin"), cBizSettings.GetSettingsValue("DBPassword"))
Line 96: adoconn.Open()
Line 97:
Line 98: rs.Open("SELECT " & _FieldName & " FROM " & _TableName & " WHERE 1=2", adoconn)
|