Adding data to Combobox

[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