Combobox

Hej

Jeg har en userform i excel hvor jeg laver 2 comboboxe der skal hente opslag fra en database.
Jeg har koden men det virker kun på den ene :-(
Denne virker fint men når jeg bruger den samme kode i den anden combobox og afvikler, vises der ikke nogen data og ingen fejl.

Private Sub CmbStatus2_Enter()
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;" & _
            "Data Source=C:\Databaser\Data123.accdb"
    rst.Open "SELECT DISTINCT [Status] FROM Status ORDER BY [Status];", _
            cnn, adOpenStatic
    rst.MoveFirst
    With Me.CmbStatus2
        .Clear
        Do
            .AddItem rst![Status]
            rst.MoveNext
        Loop Until rst.EOF
    End With
End Sub