Originariamente inviato da mardok30
Non so se in questo caso ti possono essere utili ma prova la funzione CDec(), FormatNumber()
Se poi il punto di 3.350,50 crea problemi lo puoi eliminare con Replace(numero, ".","")
Ti ricordo che il campo del Db deve essere di tipo Decimale
decimale?, io vedo che perfino in campi double mysql permette il punto come separatore decimale, usando decimal ho qualche vantaggio?

cmq ho trovato con google queste 2 funzioni....
quale mi sapresti indicare come preferita per tradurre inumeri in formato mysql?

codice:
 Public Function ConvNumItaIng(ByVal Numero As String) As String

        If Numero = "" Then
            ConvNumItaIng = 0
            Exit Function
        End If
        Dim app As String = ""
        Dim Directory As Double = 0

        Dim i As Integer
        For i = 1 To Len(Numero)
            ' If Len(Numero) - i = 0 Then Exit For
            If Mid(Numero, i, 1) = "," Then
                Mid(Numero, i, 1) = "."
                GoTo continua
            End If

            If Mid(Numero, i, 1) = "." Then
                Mid(Numero, i, 1) = ","
                GoTo continua
            End If

continua:
            app = app & Mid(Numero, i, 1)
        Next

        Return app ' NOmeFile

    End Function
    Public Function ConvNumItaMysql(ByVal Numero As String) As String

        If Numero = "" Then
            ConvNumItaMysql = 0
            Exit Function
        End If
        Dim app As String
        app = Replace(Numero, ".", "")
        app = Replace(Numero, ",", ".")

        Return app ' NOmeFile

    End Function