vba combobox og listindex

river mig i håret. jeg har denne public sub:

Public Sub Populate_K_projects()

Dim Myconn As New ADODB.Connection
Dim MyCommand As New ADODB.Command
Dim MyConnString As String
Dim MyRs As ADODB.Recordset
Dim MyIx As Integer

On Error GoTo MyError

K_projects.SetFocus
K_projects.RowSource = ""
K_projects.Value = ""

MyConnString = get_conn_string_git()
Myconn.Open (MyConnString)

Set MyCommand.ActiveConnection = Myconn

Select Case R_all_alternatives
    Case 1
        MyCommand.CommandText = "select ID, Description " & _
                                "from project_elements order by description"
    Case 2
        MyCommand.CommandText = "select ID, Description " & _
                                "from project_elements " & _
                                "where end_date >= getdate() " & _
                                "or end_date is null " & _
                                "order by description "
    Case 3
        MyCommand.CommandText = "select ID, Description " & _
                                "from project_elements " & _
                                "where end_date < getdate() " & _
                                "order by description "
End Select

MyCommand.CommandType = adCmdText

Set MyRs = MyCommand.Execute

K_projects.ColumnCount = 2
K_projects.AddItem ";Name"
K_projects.ColumnWidths = "0cm;5cm"
K_projects.ColumnHeads = True

Do While Not MyRs.EOF
  K_projects.AddItem MyRs.Fields(0).Value & ";" & _
                      MyRs.Fields(1).Value
  MyRs.MoveNext
Loop

Me.K_projects.SetFocus
Me.K_projects.ListIndex = 0


MyExit:
    On Error Resume Next
    Set MyRs = Nothing
    Set MyCommand = Nothing
    Myconn.Close
    Set Myconn = Nothing
    Exit Sub

MyError:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure populate k_projects"
    GoTo MyExit
End Sub



Når jeg kalder fra form_load event går det fint (case 1 er default). Når jeg kalder fra click event på selection alternativerne ryger jeg ned i fejl 7777 nr jeg prøver at sætte listindex til 0.

hvad er forskellen????