Why do I get an Identifier Expected Compiler Error in the following function

Function SubmitUpdate(ByVal row As DataRow, ByVal cmd As
OleDbCommand) As Integer

Dim pc As OleDbParameterCollection = cmd.Parameters

pc("CateroryID_Name").Value = row("CategoryID")
pc("CateroryName_New").Value = row("CategoryName")
pc("Description_New").Value = row("Description")

' THE FOLLOWING LINE CAUSES AN IDENTIFIER EXPECTED COMPILER ERROR
pc.("CategoryID_Orig").Value = row("CategoryID"),
DataRowVersion.Original)
pc.("CategoryName_Orig").Value = row("CategoryName",
DataRowVersion.Original)
pc.("Description_Orig").Value = row("Description",
DataRowVersion.Original)


Return cmd.ExecuteNonQuery
End Function

RE: Compiler Error by AMercer

AMercer
Sun Mar 26 16:56:43 CST 2006

delete the right parenthesis in row("CategoryID") in the line that gives the
error.

"glenn" wrote:

> Why do I get an Identifier Expected Compiler Error in the following function
>
> Function SubmitUpdate(ByVal row As DataRow, ByVal cmd As
> OleDbCommand) As Integer
>
> Dim pc As OleDbParameterCollection = cmd.Parameters
>
> pc("CateroryID_Name").Value = row("CategoryID")
> pc("CateroryName_New").Value = row("CategoryName")
> pc("Description_New").Value = row("Description")
>
> ' THE FOLLOWING LINE CAUSES AN IDENTIFIER EXPECTED COMPILER ERROR
> pc.("CategoryID_Orig").Value = row("CategoryID"),
> DataRowVersion.Original)
> pc.("CategoryName_Orig").Value = row("CategoryName",
> DataRowVersion.Original)
> pc.("Description_Orig").Value = row("Description",
> DataRowVersion.Original)
>
>
> Return cmd.ExecuteNonQuery
> End Function
>
>