[عبد العزيز البسكري]

تقصد أخي ابراهيم سيكون بهذا الشكل لو سمحت ..

كود :

   Private Sub Fill_Table_Items()

       Dim InfoTable = New DataTable
       Dim InfoAdapter = New SqlDataAdapter("SELECT * From TBL_ITEMS Where ITEMS_Id = " & ComboBox1.SelectedValue, Conne_2019)
       InfoAdapter.Fill(InfoTable)

       If InfoTable.Rows.Count > 0 Then
           With Me.ComboBox1
               .DataSource = InfoTable
               .DisplayMember = "ITEMS_Name"
           End With
       End If
       Conne_2019.Close()

   End Sub