كيفية العرض من ثلاثه جداول

عندي برنامج صيدلة اريد ان اعرض تقرير بس انا مااستخدمت ال adoانا استخدمت هدا الكود لفتح القاعدة

Public Sub Connect()

Set cn = New Connection

cn.ConnectionString = "Provider =Microsoft.Jet.OLEDB.3.51.0;" & _

"Data Source=" & App.Path & "\Pharmacy1.mdb" '& dbLangGeneral & ";pwd=Password"

'open the connection

cn.Open

Set rsCustomer = New Recordset

rsCustomer.Open "Select * from [Customer]", cn, adOpenKeyset, adLockOptimistic

'++++++++++++++++++++++++++++++

Set rscost = New Recordset

rscost.Open "select * from [cost]", cn, adOpenKeyset, adLockOptimistic

Set rspiltcost = New Recordset

rspiltcost.Open "Select * from [piltcost]", cn, adOpenKeyset, adLockOptimistic

عن طريق الاستعلام اذا حابب سارسل لك البرنامج على الايميل علما اني اريد الاستعراض من ثلاثة جداول