Private Function OpenConnection(ByVal QueryMetaParameters As classQueryMetaParameters) As ADODB.Connection
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionTimeout = 0
Dim strConn As String
With QueryMetaParameters
If .strSQLApp = "Golden" Then strConn = (string)
If .strSQLApp = "Teradata" Then strConn = (string)
If .strSQLApp = "SQL Server" Then strConn = (string)
End With
On Error GoTo ErrorHandler
cnn.Open strConn