Expert: Ravindra - 10/31/2009

Question
Good Day. I am a beginner in vb 6.0.My question is how to print a data report as a  result of search button? I used option and frame  for my search, now i want to print whatever the result of my search button as a data report, but my report is empty. thanks.

here are some of my code:
Private Sub Srch_Click()

If Frame2.Enabled = True Then
   Adodc1.RecordSource = "SELECT * FROM mmc WHERE Student_ID Like '" & txtidnum.Text & "'"
   Adodc1.Refresh
   Adodc1.Caption = Adodc1.RecordSource
end Sub

Private Sub cmdReport_Click()
   Set rs = conn.Execute("SELECT * FROM CollegeStudent")
   Set DataReport1.DataSource = rs
     DataReport1.Show vbModal

Answer
your method has problems: here's a typical code:

connect dataenvironment to the table connect it to your database
add command
command1 properties

select * from TableName where ID=?
'change the field names and tablenames here
drag the command to the datareport
have a button on form and add code:
Private Sub Command1_Click()
    With DataEnvironment1
        If .rsCommand1.State = adStateOpen Then
            .rsCommand1.Close
        End If
        .Command1 val(textIdNo)
'match the formats of date found in your table and here         
If .rsCommand1.RecordCount > 0 Then
            Set DataReport1.DataSource = DataEnvironment1
            DataReport1.Show
        Else
            MsgBox "No Records found"
        End If
    End With
End Sub

Ravindra M.G.