Programalama > VISUAL BASIC.NET

Dim connk As SqlConnection = New SqlConnection(server=(local);database=deneme;trusted_connection=true)
        Dim listek As String
        listek = "select cat from cats"
        Dim esk As SqlCommand = New SqlCommand(listek, connk)
        connk.Open()
        Dim readerk As SqlDataReader = esk.ExecuteReader
        Do While readerk.Read
            kategori.Items.Add(readerk("cat"))
        Loop

Not: Buradaki ayarları kendi ayarlarınıza göre değiştirin.