Fylde combobox fra SQL

Hej
Jeg vil gerne fylde en combobox1 fra en form kaldet forsøg med data fra en SQL database jvf følgende kode. Jeg er klar over at nedenstående ikke fungerer men hvorledes kan det gøres?


  Private Sub Forsøg_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Connection As New SqlConnection(Conn)
        Connection.Open()
        Dim Command As New SqlCommand("SELECT [Henvisende Sygehus] FROM Henvisende", Connection)
        Dim reader As SqlDataReader = Command.ExecuteReader()
        Dim X As Long
        If reader.Read() Then
            For X = 0 To 10
                ComboBox1.Items.Add(reader.GetString(X))
            Next X
        End If
    End Sub