Code:
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 fabric_tro inner join fabric_shirt on fabric_tro.sup = fabric_shirt.sup")
If rsview.RecordCount = 0 Then
MsgBox "No Record Found On Query.", vbCritical, "Seeyou"
Else
Set fab_en.DataSource = rsview
fab_en.Orientation = rptOrientLandscape
fab_en.Show
End If
Set rsview = Nothing
End Sub