[vbnet]

.....

فقط استبدل هذا الكود بكامل كود الفورم بالذي لديك ثم جرب البرنامج

كود :

Imports System.Data.OleDb
Public Class Facture

    Private cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|GestionCom.accdb")
    'Dim FactureDataAdpter As New OleDbDataAdapter("Select * From Facture", cnn)


    Private Sub Facture_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' تعبئة صناديق السرد مرة واحدة فقط
        comboBoxFill(CmbClients, "Clients", "Société", "ID", "Société")
        comboBoxFill(CmbProd, "Produits", "Désignations", "CodeP", "Désignations")

        txtNFact.Focus()

    End Sub

    ' إظهار الرصيد المتبقي
    Private Sub CmbProd_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbProd.SelectionChangeCommitted
        Using da As New OleDbDataAdapter("Select * FROM Sold", cnn)
            Using Dt As New DataTable
                da.SelectCommand.Parameters.Clear()
                da.SelectCommand.Parameters.AddWithValue("@CodeP", CmbProd.SelectedValue)
                If da.Fill(Dt) > 0 Then Me.Qte.Text = Dt.Rows(0).Item("Solde")
            End Using
        End Using
    End Sub

    ' ComboBox إجراء عام لتعبئة صندوق السرد
    Private Sub comboBoxFill(ByVal comboBox As ComboBox, ByVal tableName As String _
                        , ByVal displayMember As String, ByVal valueMember As String _
                        , Optional ByVal orderBy As String = "")

        Dim sql As String = " SELECT [" & displayMember & "], [" & valueMember & "] " & _
                            " FROM [" & tableName & "] " & _
                            If(orderBy.Trim <> "", " ORDER BY [" & orderBy & "]", "")

        Using da As New OleDbDataAdapter(sql, cnn)
            Dim dt As New DataTable
            da.Fill(dt)
            comboBox.DataSource = dt
            comboBox.DisplayMember = displayMember
            comboBox.ValueMember = valueMember
            comboBox.SelectedIndex = -1
        End Using

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

End Class

.....