Private Sub List1_Click()
 
    Set rs = New ADODB.Recordset
    rs.Open List1.Text, cnn
 
    List2.Clear
    rs.MoveFirst
    Do While Not rs.EOF
        List2.AddItem ???????
        rs.MoveNext
    Loop
    rs.MoveFirst
 
End Sub