ارتباط combobox و listbox با sql

[senator_aka]

سلام دوستان
من می توانم در sql با datagrid به نمایش اطلاعات بپردازم اما نمی دونم چرا نمیشه اطلاعات را در کمبو باکس یا لیست باکس نمایش داد.
کسی از اساتید می تونه به من کمک کنه !!!

[senator_aka]

بازهم ممنون
خودم پیدا کردم.امروز فردا هم همینجا می زارم تا بقیه از آن استفاده کنند.

[senator_aka]

Private Sub Form_Load()
Dim dbname As String
Dim db As Database
Dim rs As Recordset

' Open the database.
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "data.mdb"

Set db = OpenDatabase(dbname)
Set rs = db.OpenRecordset( _
"SELECT Name FROM People ORDER BY Name", _
dbOpenSnapshot)

' Load the ComboBox.
rs.MoveFirst
Do While Not rs.EOF
cboName.AddItem rs!Name
rs.MoveNext
Loop

rs.Close
db.Close

' Connect the Data control to the database.
datPeople.DatabaseName = dbname

' Select the first choice.
cboName.ListIndex = 0
End Sub