Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim strConnA As String = "Data Source = Datasrv; Initial Catalog = Attrib; Integrated Security = SSPI;"
        Dim connA As SqlClient.SqlConnection = New SqlClient.SqlConnection(strConnA)
        Dim strSelUnits As String = "SELECT Aname FROM dbo.AllName"
        Dim cmdSelUnits As SqlClient.SqlCommand = New SqlClient.SqlCommand(strSelUnits, connA)
        Dim dbRecordsHolder As ArrayList = New ArrayList
        connA.Open()
        Dim drUnits As SqlClient.SqlDataReader = cmdSelUnits.ExecuteReader(CommandBehavior.CloseConnection)
        If drUnits.HasRows Then
            For Each rec As Common.DbDataRecord In drUnits
                dbRecordsHolder.Add(rec)
            Next
        End If
        connA.Close()
        connA.Dispose()
        'Me.DataGridView1.DataSource = dbRecordsHolder
        Me.cboUnits.DataSource = dbRecordsHolder
    End Sub

Me.cboUnits.DataSource = dbRecordsHolder