Public Function COMBOBOX_DOLDURMA(ByVal NESNE As Object, ByVal SUTUN_DISPLAY As String, ByVal SUTUN_VALUE As String, ByVal SQLSORGU As String)
NESNE.Visible = False : NESNE.Sorted = True
Try
SQLSORGU = SQLSORGU & " ORDER BY " & SUTUN_DISPLAY & ", " & SUTUN_VALUE
Dim DS As New DataSet
SANALA_TABLO_DOLDUR(SQLSORGU).Fill(DS, "NesneCombo01")
Dim KAYIT_SAYISI As Integer = DS.Tables("NesneCombo01").Rows.Count()

NESNE.DataSource = DS.Tables("NesneCombo01")
NESNE.DisplayMember = SUTUN_DISPLAY
NESNE.ValueMember = SUTUN_VALUE
Catch ex As Exception
msgbox "hata"
End Try
NESNE.SelectedIndex = -1
NESNE.Visible = True
Return ""
End Function

Public Function SANALA_TABLO_DOLDUR(ByVal SQLSORGU As String) As Object
Dim SANALDATAADAP As New SqlDataAdapter(SQLSORGU, BAGLANTI)
Dim SANALDATASET As New DataSet
SANALDATASET.Clear()
If BAGLANTI.State = ConnectionState.Closed Then BAGLANTI.ConnectionString = "Provider Bilgileriniz...." : BAGLANTI.Open()
SANALDATAADAP.Fill(SANALDATASET, "SanalBellek")
SANALDATASET = Nothing
Return SANALDATAADAP
End Function


Şimdi her yerden COMBOBOX_DOLDURMA(Comboboxadı, "gorunensutunadı", "gorunmeyendeğer sutun adı", "Sql sorgusunu") girerek combobox'ı otomatik doldurabilirsiniz.
ancak combobox adını yazarken cift tırnak kullanmayacağız.
__________________