طريقة ادخال اعداد تحتوي على فاصلة في قاعدة البيانات

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TxTMaterialBarCode.Text = "" Then

            MsgBox("إدخل رقم البار كود")

            Exit Sub

        End If



        If TxTMaterialName.Text = "" Then

            MsgBox("إدخل اسم المادة")

            Exit Sub

        End If



        If TxTQuantityAvailable.Text = "" Then

            MsgBox("إدخل الكمية المتوفرة لديك من المادة")

            Exit Sub

        End If



        If TxTWholesalePrice.Text = "" Or TxTSellingPrice.Text = "" Then

            MsgBox("إدخل سعر البيع او سعر الجملة")

            Exit Sub

        End If



        Try



            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If



            Dim cmd As New OleDb.OleDbCommand

            cmd.Connection = Conn

            cmd.CommandType = CommandType.Text

            cmd.CommandText = "INSERT INTO Materials (MaterialBarCode, SANF, MaterialName, WAHDA, QuantityAvailable, WholesalePrice, SellingPrice, DataMa, Rabh,  Ml, MORD, DownPrice) VALUES (@MaterialBarCode, @SANF, @MaterialName ,@WAHDA, @QuantityAvailable, @WholesalePrice, @SellingPrice, @DataMa, @Rabh,  @Ml, @MORD, @DownPrice)"





            cmd.Parameters.AddWithValue("@MaterialBarCode", TxTMaterialBarCode.Text.Trim)

            cmd.Parameters.AddWithValue("@SANF", CSNF.Text.Trim)

            cmd.Parameters.AddWithValue("@MaterialName", TxTMaterialName.Text.Trim)

            cmd.Parameters.AddWithValue("@WAHDA", CWH.Text.Trim)

            cmd.Parameters.AddWithValue("@QuantityAvailable", TxTQuantityAvailable.Text.Trim)

            cmd.Parameters.AddWithValue("@WholesalePrice", TxTWholesalePrice.Text.Trim)

            cmd.Parameters.AddWithValue("@SellingPrice", TxTSellingPrice.Text.Trim)

            cmd.Parameters.AddWithValue("@DataMa", DataM.Text.Trim)

            cmd.Parameters.AddWithValue("@Rabh", Rabh.Text.Trim)

            cmd.Parameters.AddWithValue("@Ml", Note.Text.Trim)

            cmd.Parameters.AddWithValue("@MORD", Mwrd.Text.Trim)

            cmd.Parameters.AddWithValue("@DownPrice", TextBox1.Text.Trim)



            





            cmd.ExecuteScalar()

            Conn.Close()



            TxTMaterialBarCode.Text = ""

            TxTMaterialName.Text = ""

            TxTQuantityAvailable.Text = ""

            TxTWholesalePrice.Text = ""

            TxTSellingPrice.Text = ""

            CSNF.Text = ""

            Note.Text = ""

            CWH.Text = ""

            Mwrd.Text = ""

            TextBox1.Text = ""

            TxTMaterialBarCode.Focus()



            MsgBox("تم إضافة المادة بنجاح")



            Materials.LoadMaterials()











        Catch ex As Exception

            MsgBox(ex.Message)

            MsgBox("خطأ في الإدخال، قد تكون المادة مكررة او ان القاعدة محمية", ex.Message)

            Exit Sub

        End Try

    End Sub