Adding data to Combobox

Hi

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

Thanks

Code:

---

    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