In VB.NET Combobox füllen

Using conn As SqlConnection = New SqlConnection("Data Source=deinserver;Initial Catalog=master;Integrated Security=True")  
    conn.Open()
    Using selectCmd As SqlCommand = New SqlCommand() With {.CommandText = "SELECT name FROM dbo.sysobjects WHERE Type ='U' AND name <> 'sysdiagrams' ORDER BY name", .Connection = conn}  
        Using sdr As SqlDataReader = selectCmd.ExecuteReader()
            Do While sdr.Read()
                Me.ComboBox1.Items.Add(sdr.GetString(0))
            Loop
        End Using
    End Using
    conn.Close()
End Using