per chi come me avesse lo stesso problema dopo 2 ore di ricerche ho trovato e posto la soluzione:

codice:
objcon.Parameters.Append objcon.CreateParameter("param1", 135, 1, -1, dataintro) ' adDBTimeStamp