VB Forum / General 2 / July 2008

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