Как сделать так, чтобы каждый элемент в поле со списком передавался в метке 1 на 1?

Question

Я хочу передать значения из выпадающего списка в label1 во время цикла. Любое предложение о том, как я могу добиться этого?

Private Sub Command4_Click()

    sql = "SELECT * FROM Accounts "
    With rs
        Set rs = New ADODB.Recordset
        rs.Open sql, con, adOpenDynamic, adLockOptimistic
        Do While Not rs.EOF
            Label1 = rs!AlphaIndex
            LoopExport
            rs.MoveNext
        Loop

        Set rs = Nothing
    End With

End Sub

Private Function LoopExport()
    Dim SSql As String
    Dim DateFrom As String
    Dim DateTo As String

    DateFrom = Format(DTPicker1.Value, "\#mm\/dd\/yyyy\#")
    DateTo = Format(DTPicker2.Value, "\#mm\/dd\/yyyy\#")

    SSql = "SELECT * INTO [" & (Label1.Caption) & "] In '" & (Text1.Text) & " ' 
'EXCEL 8.0;' FROM " & (Label1) & " "
    SSql = SSql & " Where DateValue(Date_today) Between " & DateFrom & " And " & 
DateTo & ""

    con1.Execute SSql

Мне просто нужно что-то вроде combo1.next, чтобы добавить в цикл.