[Rabeea Qbaha]

كود :

Sub fill_comb()
       Dim query As String
       Dim command As OleDbCommand
       Dim reader As OleDbDataReader

       'فحص الاتصال بقاعدة البيانات
       If Conn.State = ConnectionState.Closed Then
           Conn.Open()
       End If
       query = "SELECT material_name, unit FROM [Materials]"
       command = New OleDbCommand(query, Conn)
       reader = command.ExecuteReader()
       If reader.HasRows Then
           While reader.Read()
               Combs.Items.Add(reader(0) & "-" & reader(1))
           End While
       End If
       reader.Close()
       Conn.Close()

       Combs.SelectedItem = Nothing
   End Sub

 
مع مراعاة  تغير material_name, unit