Stuff

            While drCustomers.Read
                Dim Customer as new Customer
                Customer.CustomerID = drCustomers.Item("CustomerID")
                Customer.Company = drCustomers.Item("Company")
                customerAL.Add(Customer)
            End While
Other File has

   With cboCustomer
            .DataSource = customersarray
            .DisplayMember = customersarray.Item("Company")
            .ValueMember = customersarray.Item("CustomerID")
        End With