Initial Catalog=TESTDB;Data Source=XXXX;"
Set cn1 = New ADODB.ConnectionSet cmd1 = New ADODB.Commandcn1.ConnectionString =Catalog=TESTDB;Data Source=XXXX;"
Function GetData(ODBC As DBConnection, ByVal QuerySQL As String, Optional Parameters As Collection) As ADODB.RecordsetDim DB As ADODB.Connection Dim Parameter As ADODB.ParameterSet DB = New ADODB.Connection
If dbOpe