While virker ikke

Hej

Jeg har lavet en While for at sætte nogle database records ind i en CheckedListBox men den retunere ingen ting nogen der kan hjælpe ?

Her er koden:

CheckedListBox1.BeginUpdate()

        ' Loop through and add five thousand new items.
        Dim GetApps As String
        Dim GetAppsExe
        GetApps = "SELECT instapp.*, applist.Appname,applist.AppStore,AppPath,AppExecuteble,AppParameters, applist.AppId as id_1 FROM instapp INNER JOIN applist ON instapp.AppID = applist.AppID WHERE instapp.ComputerID = '" & SerialNumber & "' "
        GetAppsExe = DatabaseForbindelse(GetApps)
        lblGetUpdates.Text = "Listen over programmer er opdateret fra serveren."
        While (GetAppsExe.Read())
            CheckedListBox1.Items.Add(GetAppsExe("appname"))
        End While

        ' End the update process and force a repaint of the ListBox.
        CheckedListBox1.EndUpdate()