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?