I have a VB6 project with a single Form and DataReport. The DataReport is based on a DataEnvironment that points to an Access2003 database. The database has a single table with one of the fields being a Unique Identifier. I have a button on the form that opens the DataReport. The Datareport shows all the records in the database. I want it to be filtered by the Unique Identifier contained in the form's textbox. I've tried writting a SQL statement like this:

,

but it doesn't work. Can anyone help me with this?
--Tony--

You say it doesn't work, can you give us any idea why? Does it generate an error message and what is that message? Does it simply not do anything? Does it show incorrect values in the DataReport? Does it clear the DataReport results? What makes you believe it is not working?

Help us help you. Thanks!

The error message is "Failed getting rowset from datasource...."



Sorry, the error is "The parameter has no default value". Does that make any sense?

You can do this instead

Add a variable declaration on your form
Dim qry as string
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset

Add a datasource in your form pointing on your ms access database
This should declared on Form Load
Note: Conn should be the variable used to access the datasource
for example
conn = "DRIVER={MS OLD DB 4.0 blablabla Driver};" _

On your Datareport named as DataReport1 by default
add a rptlabel and name it lbljobid

On the button of your form
Write the code

Private Sub Command1_Click()
qry = "SELECT * FROM Orders WHERE CustID = form1.text1.text "
rs.open qry, conn

Set DataReport1.DataSource = rs
If rs.RecordCount = 0 Then
MsgBox "Query found 0 Results", vbInformation, "Zero Result"
rs.Close
Exit sub
End if

DataReport1.show
With DataReport1
.Height = 10580
.Width = 13460
.Top = 100
.Left = 1700

With .Sections("Section2")
.Controls("lbljobid").Caption = rs.Fields("joborderid").Value
End With
End Sub

and lastly to close the opened rs
right click on your datareport then click view code
add this:

Private Sub DataReport_Terminate()
rs.Close
End Sub

This is just a sample of passing values "Form to Datareport"
You cannot directly connect to the form by just making a statement of form.txtjobid.text it has an explanation try and search it

Hope you get an idea...

Btw dont forget to remove from your Datareport properties the
datasource and datamember values because it will conflict with the new connection made