' Create SQL statement for names of contractors
    strSQL = "select cagent_name from doc.v_cagent order by cagent_name"
    
    ' Open recordset
    With rsCagent
        If .State = adStateOpen Then
            .Close
        End If
        Set .ActiveConnection = cnnBilling
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open strSQL
    End With
    
    ' ComboBox 
    With Me.cmbCagent
        Set .DataSource = rsCagent
        .DataField = "cagent_name"
        Set .RowSource = rsCagent
        .ListField = "cagent_name"
        .Enabled = True
        .Refresh
    End With