^.^v

langkah ketiga yaitu :
buat class untuk DropDownList
misal di buat di dalam class 'namaclass' dan isinya :

Public Shared Sub IsiDDList(ByVal ddl As DropDownList, ByVal query As String, ByVal coltext As String, _
        ByVal colvalue As String)
            ddl.Items.Clear()
            Dim ds As DataSet = getData(query) ' Buat function getData() untuk dapetin dataset

            ddl.DataSource = ds.Tables(0)
            ddl.DataTextField = coltext
            ddl.DataValueField = colvalue
            ddl.DataBind()

            ds.Dispose()
            GC.Collect()
End Sub

* ket : untuk getData sudah dibahas sebelum nya


langkah keempat yaitu :
Membuat kode di behind code :

Dim kue As String
kue = "SELECT * FROM PROVINSI"
namaclass.IsiDDList(namaDropDown, kue, "NAMA_AREA", "ID_AREA")