Essa parte em negrito esta perdidos na seguinte linha:
Set DtaBanco = DtaProc.Execute(, [MskData ,1], adCmdStoredProc)
[MskData ,1] são os parâmetros para a stored procedure ?
Se for, tente assim:Set DtaBanco = DtaProc.Execute(, Array(MskData ,1), adCmdStoredProc)