John,
 
  I would do it as a saved filter.  
 
1) open ARA and load the customer lookup grid. press the filter grid button (looks like a funnel second button on the top left) then select Maintenance.
 
Should bring up a window with a grid that says "All" = "All"
 
2) You want to select Edit. Then mouse click on the first field of the second line (AND/OR) it should write in the word AND. Press enter.
3) On the DataBase Field (dropdown) select BKAR.GROSS.YTD. press enter
4) select <> (drop down) press enter
5) type in 0 and press enter
6) Mouse Click Apply.
7) this should give you the Grid you wanted. If you are satisfied then select the filter button again from step 1 and select Maintenance.
8) it will bring up the same grid you just edited. Now either edit some more or press the Save Button.
9) SAVE... It will ask you for a name enter GROSSYTD and press the OK button.  (you can save it LOCAL so only you have this filter Or on the Server so everyone has access to this filter)
 
10) now when you press the Filter Grid button there is Maintenance and GrossYTD if you select GrossYTD it applies that filter.
 
Hope that helps.
 

This is what I have on my VB App. It works fine as long you pass one parameter. but if you pass more it  
pass lot of them. maybe i need to trim them
 
Public Sub Main()
Dim sArgs() As String
Dim iLoop As Integer
'Assuming that the arguments passed from
'command line will have space in between,
sArgs = Split(Command$, " ")
    For iLoop = 0 To UBound(sArgs)
        dba_wo = (sArgs(iLoop)) 'My dba_wo sub is expeding WOPRE and WOSUF
    Next
End Sub
 
PD: it does not matter if it string or number, both works fine....
 

Yes, it does work very well. Thank you.
Here is my VB6 sub
 
Public Sub Main()
Dim sArgs() As String
Dim wopre As String
Dim wosuf As String
Dim var_sql As String
Dim var_user As String
Dim the_shell As String
 
 
var_user = VBA.Environ("USERNAME")
sArgs = Split(Trim(Command$), "  ")
wopre = sArgs(0)
wosuf = sArgs(1)
 
var_sql = "INSERT INTO evo_gridcalls (the_user, the_grid, the_value01, the_value02) VALUES ('" & var_user & "','WOJC','" & wopre & "','" & wosuf & "')"
conn_intranet (var_sql)
 
'Open WOJC
the_shell = "explorer.exe" & " " & "F:\DBAMFG\EVO_VB\WOJC\WOJC.mdb"
Call Shell(the_shell, 1)
 
End Sub