Function PrepareQueryCommandAndParameters(ByRef cnn As ADODB.Connection, ByVal strParameterizedQuery As String, ByVal strClaimsToQueryThisRunVal As String) As ADODB.Command
Dim cmdtemp As ADODB.Command
Set cmdtemp = New ADODB.Command
With cmdtemp
.ActiveConnection = cnn
.CommandTimeout = 0
.CommandText = strParameterizedQuery
Dim parClaimsToQueryThisRun As ADODB.Parameter
Set parClaimsToQueryThisRun = .CreateParameter("ParClaimsToQueryThisRun", adBSTR, adParamInput)