[VB.NET] Query di scrittura DB con PARAMENTRI

[Igor Baldacci]

Ciao a tutti,
sto scrivendo questa INSERT in un DB MS SQL Server CE e sto utilizzando i parametri, ma mi viene restituito un errore nel campo DATA e non capisco perchè:

            Dim Movimento As String = CDec(strCreditoTessera)
            Dim DataAttuale As DateTime = Date.Now

            SQL_Scrive &= "INSERT INTO Movimenti "
            SQL_Scrive &= "( "
            SQL_Scrive &= "ID_Cliente, "
            SQL_Scrive &= "Movimento, "
            SQL_Scrive &= "DataMovimento "
            SQL_Scrive &= ") "
            SQL_Scrive &= "VALUES "
            SQL_Scrive &= "( "
            SQL_Scrive &= "@ID_Cliente, "
            SQL_Scrive &= "@Movimento, "
            SQL_Scrive &= "@DataMovimento "
            SQL_Scrive &= ") "
            '
            ' PARAMETRI
            '
            cmd.Parameters.Add("@ID_Cliente", SqlDbType.Int).Value = intGlobalID_Cliente
            cmd.Parameters.Add("@Movimento", SqlDbType.Money).Value = Movimento
            cmd.Parameters.Add("@DataMovimento", SqlDbType.Date).Value = DataAttuale

L'SqlDbType del parametro DataAttuale l'ho modifciato in tutti i modi possibili ma non cambia poi molto!

Alla fine ho risolto in questo modo "sporco", togliendo il parametro in questione, ma vorrei capire dove sbaglio:

            Dim Movimento As String = CDec(strCreditoTessera)
            Dim DataAttuale As DateTime = Date.Now
            Dim DataMovimento As String

            DataMovimento = DataAttuale.ToString("MM/dd/yyyy", New DateTimeFormatInfo())

            SQL_Scrive &= "INSERT INTO Movimenti "
            SQL_Scrive &= "( "
            SQL_Scrive &= "ID_Cliente, "
            SQL_Scrive &= "Movimento, "
            SQL_Scrive &= "DataMovimento "
            SQL_Scrive &= ") "
            SQL_Scrive &= "VALUES "
            SQL_Scrive &= "( "
            SQL_Scrive &= "@ID_Cliente, "
            SQL_Scrive &= "@Movimento, "
            SQL_Scrive &= "'" & DataMovimento & "'"
            SQL_Scrive &= ") "
            '
            ' PARAMETRI
            '
            cmd.Parameters.Add("@ID_Cliente", SqlDbType.Int).Value = intGlobalID_Cliente
            cmd.Parameters.Add("@Movimento", SqlDbType.Money).Value = Movimento

Grazie infinite.
igor