Pass array to activeX

I am trying to pass an array as argument but when
running i get EOleException with message 'Type
missmatch in paramer. Must be an array object'

Please can anyone help me / Mats

//My C-code:
   int Bounds[2] = {0,4};
   Variant rowsArray = VarArrayCreate(Bounds,1, varVariant);
   rowsArray.PutElement(Variant( "Res1" ).AsType( varOleStr ),0);
   rowsArray.PutElement(Variant( "Res1" ).AsType( varOleStr ),1);
   rowsArray.PutElement(Variant( "Res1" ).AsType( varOleStr ),2);
   rowsArray.PutElement(Variant( "Res1" ).AsType( varOleStr ),3);
   rowsArray.PutElement(Variant( "Res1" ).AsType( varOleStr ),4);

   cdoRowset.Exec( Function( "AddRows" ) <<rowsArray );   //This line
make exception

//VB-exampel
Dim Rows(12, 4) As Variant

Rows(0, 0) = "1002"
Rows(0, 1) = "Cyclist's Trail Co."
Rows(0, 2) = #12/2/94#  
Rows(0, 3) = 5060.2725  

cdoRowset.AddRows Rows