جملة استعلام لجدولين

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

من الأستاذ هيثم القلاف

هذا الكود بظهر بيانات لجدولين في أداة DataGrid1

'
 Dim db As New ADODB.Connection
 Dim rs As New ADODB.Recordset
'

'
Private Sub Form_Load()
'فتح قاعدة البيانات
 db.CursorLocation = adUseClient
 db.Provider = "Microsoft.JET.OLEDB.4.0"
 db.Open App.Path & "\Test.mdb"
'جملة الإستعلام التالية هي المسؤلة عن عمل الربط بين الجدولين
 rs.Open "SELECT Authors.Author, [Title Author].ISBN " & _
         "FROM Authors INNER JOIN [Title Author] ON Authors.Au_ID = [Title Author].Au_ID;", db, adOpenStatic, adLockReadOnly
 Set DataGrid1.DataSource = rs