'ALTER PROCEDURE listDealInstrumentType
'(
'   @sSource nvarchar(16)='ALL',
'   @iBalanceTypeCode int=null,
'   @sDealBalanceFlag nvarchar(1)=null
')
    
Public Sub LoadInstrumentType()

    Dim s As String
    
    s = ""
    
    With Me!iInstrumentTypeCode
        s = "exec listDealInstrumentType 'DEAL', "
        If Not IsNull(Me!iBalanceTypeCode) Then
            s = s & CStr(Me!iBalanceTypeCode) & ", "
        Else
            s = s & "null, "
        End If
        If Not IsNull(Me!sBalanceFlag) Then
            s = s & "'" & CStr(Me!sBalanceFlag) & "'"
        Else
            s = s & "null"
        End If
        .RowSource = s
        If .ListCount =  1  Then
            Dim rs As ADODB.Recordset
            Set rs = CurrentProject.Connection.Execute(.RowSource)
            .value = rs.Fields( 0 )
            .Enabled = True
            Set rs = Nothing
        Else
            .value = Null
            .Enabled = True
        End If
    End With
    Call iInstrumentTypeCode_AfterUpdate

End Sub