Insert Intor Zahl mit Komma

Hallo und Guten Abend an Alle die jetzt noch im Forum sind!

Ich habe mal wieder ein kleines Problem bei dem ich nicht weiterkomme, obwohl die Lösund wohl nicht schwer ist.

Ich habe wieder eine kleine Tabelle ("Belege"), diesmal mit 4 Spalten.

Datum, Betrag, Beschreibung und Konto und haben foldgende Eigenschaften datetime, money, nvarchar(100),  int. Keine Spalte hat einen Primärschlüssel.

Wenn ich jetzt aus Textboxen die Werte in die Tabelle schreiben möchte, kommt kein Fehler (soweit so gut). Aber, der Wert für den Betrag wir immer ohne Kommazahl bzw als Ganzzahl in die Tabelle hineingeschrieben.

Bsp 100,01 wird 10001,00.

Die Frage ist was läuft falsch? Ich hoffe jemand kann mir wieder helfen.

Aber hier erstmal der Code

Option Explicit On
Imports System.Data.SqlServerCe
Public Class frm_Belege

Private CnSt As String = "Data Source= Daten.sdf"

Private Sub cmb_Eingabe_Belege_Click(sender As Object, e As System.EventArgs) Handles cmb_Eingabe_Belege.Click

        Dim Cn As New SqlCeConnection(CnSt)
        Dim Cmd As SqlCeCommand = Cn.CreateCommand
        Dim anzahl As Integer
        Dim das_Datum As String
        Dim der_Betrag As Decimal
        Dim der_Text As String
        Dim die_KontoNr As Integer

        On Error GoTo Fehler


        'das_Datum = CDate(Me.txt_Datum_Belege.Text)
        das_Datum = Format(CDate(Me.txt_Datum_Belege.Text), "MM/dd/yyyy")

        der_Betrag = Format(CDec(Me.txt_Betrag_Belege.Text), "0.00")
        der_Betrag = der_Betrag.ToString("0.00")

        der_Text = Me.txt_Beschreibung_Belege.Text

        die_KontoNr = Format(CInt(Me.txt_KontoNr_Belege.Text), "0")

        If Me.txt_Datum_Belege.Text = "" Then
            MsgBox("Ew wurde kein Datum eingegeben!")
            Exit Sub
        End If

        If Me.txt_Betrag_Belege.Text = "" Then
            MsgBox("Ew wurde kein Betrag eingegeben!")
            Exit Sub
        End If

        If Me.txt_Beschreibung_Belege.Text = "" Then
            MsgBox("Ew wurde keine Text eingegeben!")
            Exit Sub
        End If

        If Me.txt_KontoNr_Belege.Text = "" Then
            MsgBox("Ew wurde keine Kontonummer eingegeben!")
            Exit Sub
        End If

        ' Beep()
        'Cmd.CommandText = "insert into Konten (KontoName) values ('Lebensmittel')"
        'Cmd.CommandText = "Insert Into Belege([Datum],[Betrag],[Beschreibung],[KontoNr])  Values ('" & (das_Datum) & "','" & (der_Betrag) & "','" & (der_Text) & "', ,'" & (die_KontoNr) & "')"
        'insert into personen  (name, vorname, personalnummer, gehalt, geburtstag) values('Müller', 'Gerd', 6714, 2900, '12.08.1976')
        Cmd.CommandText = "Insert Into Belege([Datum],[Betrag],[Beschreibung],[KontoNr])  Values ('" & (das_Datum) & "','" & (der_Betrag) & "', '" & (der_Text) & "', '" & (die_KontoNr) & "')"

        Cn.Open()
        anzahl = Cmd.ExecuteNonQuery()

        If anzahl > 0 Then
            MessageBox.Show("Es wurde " & anzahl & " Datensatz eingefügt")
        End If

        Cn.Close()


        Me.BelegeTableAdapter.Fill(Me.Belege._Belege)


        Exit Sub
        '*************************************************************************************
Fehler:
        MsgBox("Fehler in Sub Fehler0" & vbCrLf & "Fehlernummer: " & Err.Number & _
        vbCrLf & "Fehlerbeschreibung: " & Err.Description)

    End Sub

End Class

Danke für eurer Verständnis und eure Mühen.

Gruß Piti