Dim thisEngine As Object
Select pd.EngineType
Case Engine.ProjectType.MSSQL
thisEngine = SQLConnect
Case Engine.ProjectType.MySQL
thisEngine = MySQLConnect
Case Engine.ProjectType.ORACLE
thisEngine = ORAConnect
Case Engine.ProjectType.MSACCESS
thisEngine = ACCESSConnect
Case Else
thisEngine = Null
driverClass= ""
connectionString = ""
End Select
driverClass = CallSub(thisEngine, "GetDriverClass")
connectionString= CallSub2(thisEngine, "GetConnectionString", pd)
cmdGetCatalogs = CallSub(thisEngine, "GetCatalogsCmd")
cmdGetSchema = CallSub(thisEngine, "GetSchemaCmd")
cmdGetColumns = CallSub(thisEngine, "GetColumnsCmd")
thisEngine = Null