Adding data to Combobox

[combo]

Hi

Just wondering is there a way of getting the data from an access database and adding to a combobox

Thanks

[MartinLiss]

Dim rsReleasesRecords As Recordset
Dim nIndex As Integer

On Error GoTo ErrorRoutine

Set rsReleasesRecords = gdbRWTS.OpenRecordset _
("Select * From Releases where Xpressions = True order by DisplayOrder", dbOpenSnapshot)

Do Until rsReleasesRecords.EOF
frmMain.cboRelease(dispBasicInfoAsIsX).AddItem rsReleasesRecords!ReleaseNumber
rsReleasesRecords.MoveNext
Loop

rsReleasesRecords.Close
frmMain.cboRelease(dispBasicInfoAsIsX).ListIndex = g_Def.Default(177)

ErrorRoutine:

If Err.Number <> 0 Then g_Err.DisplayError "LoadReleasesX"


------------------
Marty