Set OraSes = CreateObject("OracleInProcServer.XOraSession")
Set OraDataB = OraSes.OpenDatabase("TEST","User/Pw", 0 ) 
SelectStr ="select PAN, NameOnCard from tcard"
Set DynSet = OraDataB.CreateDynaset( SelectStr, 0 )
fldCount = DynSet.Fields.Count

Dim flds() As Object
^^^^^^^^^^^^^^^^^^^^^

Ошибка Предполагается наличие окончания инструкции
For ColNum =  0  To fldCount -  1  
  flds( ColNum ) = DynSet.Fields(ColNum)
Next
WScript.Echo DynSet.RecordCount
For RowNum = 2  To DynSet.RecordCount +  1 
  WScript.Echo flds(  1  ).Value
  DynSet.DbMoveNext
Next
Set OraDataB = Nothing 
Set OraSes = Nothing