Code:
ElseIf Opt3.Value = True Then
Call connection(cnview, App.Path & "\Seeyou.mdb", "endromida")
'Call connection(cnview, "\\SEEYOU-PC\shared\Seeyou.mdb", "endromida")
Call Recordset(rsview, cnview, "SELECT * FROM RTshirts where Edate between '" & txtEdate1.Text & "' and '" & txtEdate2.Text & "' order by Pdcode asc")
If rsview.RecordCount = 0 Then
MsgBox "No Record Found On Query.", vbCritical, "Seeyou"
Else
Set Ready.DataSource = rsview
Ready.Orientation = rptOrientLandscape
Ready.Show
End If