Cara Menampilkan Record Database ke dalam Combobox VB.Net

Berikut source code nya :

Imports System.Data.SqlClient

Public Class Form1

    Sub isi()

        Call konek()

        SQL1 = "SELECT * FROM FLCOLOR"

        cmd = New SqlCommand(SQL1, conn)

        baca = cmd.ExecuteReader

        ComboBox1.Items.Clear()

        Do While baca.Read()

            ComboBox1.Items.Add(baca("SERI"))

        Loop

    End Sub

    Sub konek()

        koneksi = "Data Source=MALADOANK;Initial Catalog=Berbagi_Ilmu;Integrated Security=true;User ID=MDBK;Password=123"

        conn = New SqlConnection(koneksi)

        conn.Open()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call isi()

    End Sub

End Class

= = = Selamat Mencoba,Jika ada yang error atau ada yang tidak paham silahkan tinggalkan komentarnya. Terima Kasih