Mengisi ComboBox dengan Mengambil Data dari SQL Server

Anda ingin mengisi combobox dengan data yang diambil dari SQL Server, berikut ini adalah syntax-nya:

Imports System.Data.SqlClient

-----

Dim cn As New SqlConnection("Data Source=ORACLE\SQLEXPRESS;Initial Catalog=Kampus;Integrated Security=True")

Dim comm As New SqlCommand("", cn)

Dim da As New SqlDataAdapter

Dim ds As New DataSet

Dim dt As New DataTable

Dim dr As SqlDataReader

-----

cn.Open()

comm.Connection = cn

comm.CommandType = CommandType.Text

comm.CommandText = "Select * from tbljurusan order by kode"

dr = comm.ExecuteReader

If dr.HasRows Then

   While dr.Read()

        ComboBox1.Items.Add(dr.Item("kode") + " ---> " + dr.Item("jurusan"))

   End While

        End If

dr.Close()

cn.Close()