^.^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")

2. dan buatlah class untuk membuat fungsi untuk membuka tabel di database

Contoh :

Namespace DataLayerClasses
Public Class ClsData

Public Shared cn As SqlConnection ''''untuk connect database
Public Shared cn2 As SqlConnection ''''untuk connect database
Public Shared da As SqlDataAdapter ''''untuk mengambil data
Public Shared ds As DataSet ''''untuk menampung data
Public Shared dt As DataTable ''''untuk menampung data
Public Shared cmd As SqlCommand ''''untuk melempar query
Public Shared cmd2 As SqlCommand ''''untuk melempar query
Public Shared trx As SqlTransaction ''''untuk save / undo perintah SQL

''' Ambil koneksi string dari webconfig
Public Shared Function GetKoneksi() As String
Return System.Configuration.ConfigurationManager.ConnectionStrings("conn").ConnectionString
End Function

''' <summary>
''' init obyek (gak kepake)
''' </summary>
''' <remarks></remarks>
Public Sub New()
''''init objects
''cn = New SqlConnection("initial catalog=....")
cn = New SqlConnection()
da = New SqlDataAdapter("", "")
ds = New DataSet()
cmd = New SqlCommand()
cmd2 = New SqlCommand()
''''set connection
GetKoneksi()
End Sub

''' <summary>
''' get data menggunakan data set
''' </summary>
''' <param name="SQLQuery">query</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function getData(ByVal SQLQuery As String) As DataSet

Dim StrDbCon As String = GetKoneksi() ''''untuk connect database
cn = New SqlConnection(StrDbCon) ''''untuk connect database
cmd = New SqlCommand(SQLQuery, cn) ''''untuk mengambil data
da = New SqlDataAdapter(cmd) ''''untuk melempar query
ds = New DataSet ''''untuk menampung data
dt = New DataTable
'Try
da.Fill(ds)
' Catch ex As Exception
'MsgBox(ex.Message)
'End Try
Return ds

End Function


End Class

End Namespace

3. Cara memanggil nya di dalam koding

 
Dim rs As DataSet
Dim dt As New DataTable()

Dim kue As String = "Select * from NAMA_TABLE"
rs = DataLayerClasses.ClsData.getData(kue)

If rs.Tables(0).Rows.Count > 0 Then
Msgbox("Data di temukan")
Else
Msgbox("Data tidak di temukan")
End If