Populate combo box with Record Set in Access 2003

[ganeshvenkatram]

Hi
Im using a Combo box in my form which is used to populate values from a Table. I have used the following codes.
1. <Code>
Set db = CurrentDb()
Dim Lrs As DAO.Recordset, lsql As String
lsql = "select DeptName from Department"
Set Lrs = db.OpenRecordset(lsql)
While Not Lrs.EOF


Me.cmbDept.AddItem Lrs.Fields("DeptName")
Lrs.MoveNext

Wend

</Code>

Im Getting The following error when i execute:
"The RowSourceType Property Must be set to 'Value List' to use this method"

What i need to do
Plz Suggest

[Bob Fitz]

Hi
This is what I think you need to do:

Take a look at the properties of the combo box. Click the "Data" tab. Change the "Row Source Type" setting to "Value List".

[Bob Fitz]

Hi

Just had another thought.

Why not just set the "Row Source Type" setting to "Table/Query" and the "Row Source" property to "select YourTableName.DeptName from YourTableName.Department" without the quotes.
Then you wouldn't need any code.