[حسين ادريس]

الف شكر والله ريحتنى كتير


الكود الخاص بحضرتك مظبطش معايا ولما وضعت اخر جمله الاتصال بالجدول ظبطت معايا 
   ElseIf ComboBox1.SelectedItem = ("يوليو2019") Then
            Dim cmd As New OleDbCommand
            Dim dt As New DataTable
            cmd = New OleDbCommand("select * from يوليو2019", Con)
            Con.Open()
            dt.Load(cmd.ExecuteReader)
            Con.Close()
            DataGridView1.DataSource = dt
            DataGridView1.Refresh()
            For Each Rrow In DataGridView1.Rows
                ComboBox5.Items.Add((Rrow.Cells(1)).Value).ToString()
            Next