combobox'a sql'den veri alma

[adilnevzat]

Merhaba arkadaşlar,
Combobox'a sql den direkt nasıl veri alabilirim, formları arıyorum bulamadım. Rowsource kullanarak denedim olmadı, additem ile döngü kullandım yine olmadı. Bilen varsa şu garibe bir kod örneği..
Herkese kolay gelsin..

 

[Mehmet Şahin]

Merhaba şu şekilde denermisiniz, kolay gelsin.

SQLStr = "select * from tablonuz "
Set rs = con.Execute(SQLStr)
    If rs.EOF = True Then
    GoTo son
    Else: End If
        Do While Not rs.EOF
        combobox1.AddItem rs("alan_adi")
        rs.MoveNext
        Loop
    rs.Close
    Set rs = Nothing
son: