Array su dataCombo

If ComboBox1.Text <> "System.Data.DataRowView" Then
            sql = "SELECT Condominio.id, Condominio.Condominio AS COndo, Condominio.Indirizzo, Amministratori.Amministratore "
            sql = sql & " FROM Amministratori INNER JOIN Condominio ON Amministratori.ID = Condominio.idAmministratore"
            sql = sql & " WHERE (((Amministratori.Amministratore)=" & Chr(34) & ComboBox1.Text & Chr(34) & "));"
 
            Dim adoConn As ADODB.Connection = New ADODB.Connection()
            Dim adoRS As ADODB.Recordset = New ADODB.Recordset()
            TypeConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Procedure\_A Inserisci Excel\Database\Millesimi.mdb;Jet OLEDB:Database PassWord=;"
            adoConn.Open(TypeConn.ConnectionString)
            adoRS.Open(sql, adoConn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly, 1)
 
             Dim myShapes As New ArrayList
            Do While Not adoRS.EOF
                With myShapes
                    .Add(adoRS.Fields("coNDO").Value)

End With
                'stringa = stringa & Chr(34) & adoRS.Fields("coNDO").Value & Chr(34) & ", "
                adoRS.MoveNext()

Loop

adoRS.Close()
            adoConn.Close()
            ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

ComboBox3.DataSource = myShapes
            ComboBox3.SelectedIndex = 0

End If

If ComboBox1.Text <> "System.Data.DataRowView" Then
sql = "SELECT Condominio.id, Condominio.Condominio AS COndo, Condominio.Indirizzo, Amministratori.Amministratore "
sql = sql & " FROM Amministratori INNER JOIN Condominio ON Amministratori.ID = Condominio.idAmministratore"
sql = sql & " WHERE (((Amministratori.Amministratore)=" & Chr(34) & ComboBox1.Text & Chr(34) & "));"

Dim adoConn As ADODB.Connection = New ADODB.Connection()
Dim adoRS As ADODB.Recordset = New ADODB.Recordset()
TypeConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Procedure\_A Inserisci Excel\Database\Millesimi.mdb;Jet OLEDB:Database PassWord=;"
adoConn.Open(TypeConn.ConnectionString)
adoRS.Open(sql, adoConn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly, 1)

Dim myShapes As New ArrayList
Do While Not adoRS.EOF
With myShapes
.Add(adoRS.Fields("coNDO").Value)

End With
'stringa = stringa & Chr(34) & adoRS.Fields("coNDO").Value & Chr(34) & ", "

adoRS.MoveNext()

Loop

adoRS.Close()
adoConn.Close()
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

ComboBox3.DataSource = myShapes
ComboBox3.SelectedIndex = 0

End If