Private Sub cmdPrint_Click()
Dim cnview As New ADODB.connection
Dim rsview As New ADODB.Recordset
Call connection(cnview, App.Path & "\Seeyou.mdb", "endromida")
'Call connection(cnview, "\\SEEYOU-PC\shared\Seeyou.mdb", "endromida")
Call Recordset(rsview, cnview, "SELECT * FROM [order] where Edate = #" & txtEdate.Text & "#")
If rsview.RecordCount = 0 Then
MsgBox "No Record Found On Query.", vbCritical, "Seeyou"
Else
Set DayOrds.DataSource = rsview
DayOrds.Orientation = rptOrientLandscape
DayOrds.Show
End If
End Sub
Error is : No Records Found
Even there are records in database, i am trying to filter data on base of Date
Is this Query is right?