Private Sub cmdQuery_Click()
On Error GoTo ErrTrap
    Dim sFilter As String
    sFilter =  "subject_id="  & mnSub &  " and subject_is_local="  & mbySub
    
    Dim Cmd As ADODB.Command
    Set Cmd = New ADODB.Command
    Set Cmd.ActiveConnection = mCn
    Cmd.CommandTimeout =  0 
    Cmd.CommandText =  "p12_getbankaccounts" 
    Cmd.CommandType = adCmdStoredProc
    Cmd![@filter] = sFilter
    
    Set dbgQuery.DataSource = Nothing
    CloseRecordset mrsView
    Set mrsView = New ADODB.Recordset
    mrsView.Open Cmd, , adOpenStatic, adLockReadOnly
    Set dbgQuery.DataSource = mrsView
    dbgQuery.ReBind
    
    Exit Sub
ErrTrap:
   mnErr = Err.Number
   msErr = Err.Description
On Error Resume Next
    Unload Me
End Sub