Problems with binding in V4RB?

[Carsten Friehe]

Hi!

I have the following code:

----------
Sub SetAbrufDatum(Newsservername as String, Datum as Date)
  dim res as Integer
  dim Parameter(-1) as String

  Parameter.Append Format(Datum.Day, "00") + ":" + Format(Datum.Month,
"00") + ":" + Format(Datum.Year, "00") + " " + Format(Datum.Hour, "00") +
":" + Format(Datum.Minute, "00") + ":" + Format(Datum.Second, "00")
  res = pGlob.mDatabase.SqlExecute("Update Newsserver set DatumAbruf = :1
where Kontoname = '" + Newsservername + "'", Parameter)

Exception err as VException
  MsgBox "Valentina throw exception: " + Str(err.ErrorNumber) + ":" +
err.Message
End Sub
----------

But code execution stops in the line with "res = pGlob.mDatabase...". At
the bottom of the window "VException" is written. But I thought I am
catching all VExceptions with this code. So I don't know what the reason
for the error could be. This code has worked with V4RB 1.11 without any
problem.
Now with V4RB 2.5.8 and RB 2007r2 it is not working.

Best Regards,
Carsten