I don't think that problem is in syntax in the Calculate Field operation, because my program works in the ArcGIS 10.0 without that error. Is it possible that problem cause newer version of the ArcGIS 10.1? Or maybe I did something wrong in setting in the Visual Studio Setup.
Dim makefeaturelayerobjekt As ESRI.ArcGIS.DataManagementTools.MakeFeatureLayer = New ESRI.ArcGIS.DataManagementTools.MakeFeatureLayer(copyfeatureobjekt_output, "lyr")
Geoprocessing(makefeaturelayerobjekt)
value = 10
Dim addfieldobjekt As ESRI.ArcGIS.DataManagementTools.AddField = New ESRI.ArcGIS.DataManagementTools.AddField("lyr", "value", "Long")
Geoprocessing(addfieldobjekt)
Dim calculatefieldobjekt As ESRI.ArcGIS.DataManagementTools.CalculateField = New ESRI.ArcGIS.DataManagementTools.CalculateField("lyr", "value", value)
Geoprocessing(calculatefieldobjekt)
Private Sub Geoprocessing(ByVal objekt As Object)
Try
resultsGP = CType(gp.Execute(objekt, Nothing), IGeoProcessorResult)
txtMessages.Text &= objekt.ToolName() & " > "
gp.ClearMessages()
Catch ex As Exception
For Count As Integer = 0 To gp.MessageCount - 1
txtMessages.Text &= (gp.GetMessage(Count) & Constants.vbCrLf)
Next Count
gp.ClearMessages()
Throw
End Try
End Sub