excel vba sql recordset to array