[الوليد ☺]

السلام عليكم ورحمة الله

شوف هذا التعديل كامل وإن شاء الله يكون تمام
نلاحظ ان مربعات النص المخصصة للأرقام وضعناها في دالة Val
ومربعات النص المخصصة للنصوص وضعنا آخرها Trim عشان نحذف أي مسافات زائدة قبلها أو بعدها

PHP كود :

Private Sub Button6_Click(sender As Object, e As EventArgs)

    If (Val(Me.TextBox2.Text) = 0) Or (Me.TextBox3.Text.Trim = "") Or (Val(Me.TextBox4.Text) = 0) Then
        MessageBox.Show("يجب تعبئة جميع الفراغات قبل الاضافة")
        Exit Sub
    End If

    Try

        'مرحلة تعريف أمر إضافة
        Using cmd As New OleDbCommand("INSERT INTO [products] ([nump], [namep], [now]) values (@nump, @namep, @now)", con)
            cmd.Parameters.AddWithValue("@nump", Val(Me.TextBox2.Text))
            cmd.Parameters.AddWithValue("@namep", Me.TextBox3.Text.Trim)
            cmd.Parameters.AddWithValue("@now", Val(Me.TextBox4.Text))
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        End Using

        MessageBox.Show("تم إضافة الصنف بنجاح")

        Me.TextBox2.Text = String.Empty
        Me.TextBox3.Text = String.Empty
        Me.TextBox4.Text = String.Empty

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub