From: jprobb@seniortrans.com   
      
   Problem with Parameters with an ADO control   
      
   Hello:   
      
   I am trying to fill a Microsoft DataGrid with specific data.  Based on a   
   selection by the operator.   
      
   I have an option box at the top, a command button just below that to have   
   the program get the desired info.   
      
   A datagrid with an ADODC as the datasource.   
      
   The operator selects an option   
   If option(0) is selected then SelType = "  "   
   Elseif Option(1) is selected then SelType = " "   
   Elseif Option(2) is selected then SelType = " "   
      
   Then there is a command button below that which tells the program to get the   
   requested data.   
      
   This takes you to an SQL that says:   
      
   MyGridData = "SELECT [ABN Table].ABNId, [ABN Table].PatientName, "   
   MyGridData = MyGridData & "[ABN Table].AbnItem, [ABN Table].Reason, "   
   MyGridData = MyGridData & "[ABN Table].Amount, [ABN Table].PrintYN, "   
   MyGridData = MyGridData & "[ABN Table].EntryDate, [ABN Table].CareCaidPers "   
   MyGridData = MyGridData & "From [ABN Table] "   
   MyGridData = MyGridData & "Where ((([ABN Table].CareCaidPers) = '" & SelType   
   & "')) "   
   MyGridData = MyGridData & "ORDER BY [ABN Table].EntryDate DESC;"   
      
   Then I set up my Adodc and try to load it with data:   
    Me.datABN.ConnectionString = Connectstr   
    Me.datABN.RecordSource = MyGridData   
    Me.datABN.Refresh   
      
   However, when the program tries to refresh, I get an error that says:   
   Run-time Error '3061':   
   Too few parameters.  Expected 4   
      
   The problem is that I built the SQL in Access and it works there (i.e., I   
   replace "SelType" with "Personal"...one of the selections)  but here I keep   
   getting this error.   
      
   Any suggestions or assistance would be appreciated.   
      
   Thanks   
      
   JP   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)