Hi friends ,

I am getting following error in datareport using dataenvironment

"failed getting rowset(s) from current datasource" .Please help.

My code is

Code:
Private Sub cmdprint_Click()
Dim chq As String
        chq= "cheque"
Dim sr As String
        sr = "select *  from " & chq& " where cheque_no= '" & Text1.Text & "' "

   'DataEnvironment1.Connection1.Close
   DataEnvironment1.Connection1 = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\cheque.mdb"
   DataEnvironment1.Connection1.Open

   DataEnvironment1.Commands.Item(1).CommandType = adCmdText
    DataEnvironment1.Commands.Item(1).CommandText = "select *  from " & chq & " where cheque_no= " & Text1.Text & " "
    'DataEnvironment1.Command1 = Str(DataEnvironment1.Commands.Item(1).CommandText)

   Debug.Print DataEnvironment1.Commands.Item(1).CommandText
If DataEnvironment1.Connection1.State > 0 Then DataEnvironment1.Connection1.Close

    DataEnvironment1.Connection1.Open
   DataEnvironment1.Command1



Set DataReport1.DataSource = DataEnvironment1
Debug.Print DataReport1.DataMember
DataReport1.DataMember = sr


Debug.Print DataReport1.DataMember

DataReport1.LeftMargin = 1200
DataReport1.TopMargin = 1000
DataReport1.BottomMargin = 1000
DataReport1.Show

End Sub