Hi
I executed your code in my system it's working fine here, try to find out what value you are passing to the function by putting msgbox after the line:
StrDate = DataTable.Value("Date", "Action1")
10-25-2010, 04:02 PM (This post was last modified: 10-25-2010, 04:03 PM by KavitaPriyaCR.)
Yah Saini is right,
while trying out your script i had written the statement correctly here in my system and hence i didn't find that error, executed successfully.
Now i checked it back u were missing that "s", and after deleting that "s" i am also getting that error successfully.