Error running variable ADO

Hi to all the experts, need spend two parameters to a SP sql, from a Form in Navision, the code is the next

//Here create connection to the base and to the server
g_recDatabase.RESET;
g_recDatabase.SETRANGE("My Database", TRUE);
IF g_recDatabase.FIND('-') THEN BEGIN
g_txtDbName := g_recDatabase."Database Name";
END;

g_recServer.RESET;
g_recServer.SETRANGE("My Server", TRUE);
IF g_recServer.FIND('-') THEN BEGIN
g_txtSvrName := g_recServer."Server Name";
END;

IF ISCLEAR(lADOConnection) THEN CREATE(lADOConnection);
lADOConnection.ConnectionString:=
'Provider=SQLOLEDB.1;' +
'User ID= user;' +
'Password=pass;' +
'Initial Catalog='+ DELCHR(g_txtDbName, '>', ' ') + ';' + 'Data Source=' + DELCHR(g_txtSvrName, '>', ' ');
lADOConnection.Open;

//Run the SP
IF ISCLEAR(lADOCommand) THEN
CREATE(lADOCommand);
lvarActiveConnection := lADOConnection;
lADOCommand.ActiveConnection := lvarActiveConnection;

lADOCommand.CommandText := 'sp_Compel_test';
lADOCommand.CommandType := 4;
lADOCommand.CommandTimeout:= 180;


l_txtParam1 := FORMAT(g_dateDateFrom,0,9);
l_txtParam2 := FORMAT(g_dateDateTo,0,9);

lADOParameter:=lADOCommand.CreateParameter('@Date_Frm', 133,1,0,l_txtParam1);
lADOCommand.Parameters.Append(lADOParameter);
lADOParameter:=lADOCommand.CreateParameter('@Date_To', 133,1,0,l_txtParam2);
lADOCommand.Parameters.Append(lADOParameter);

window.OPEN('Executing Store Procedure...');

lADOCommand.Execute;

window.CLOSE();

lADOConnection.Close();

The SP receives two paramaters datetime. It is very rare that happens, because when you run for the first time goes well, takes the dates passes by parameter and the SP creates the csv, Now, when run again strip an error which reads as follows:

"An exeption was raised in method Append. The OLE control or Automation server has returned error (HRESULT) -2147352567. The component did not provide the exception description."

was reading and testing a bunch of things and the truth that is no longer where you can be a problem.
Since already Thank you very much.
Best Regards.