التعامل مع الاستعلام لربط جدولين

السلام عليكم

عندي مشكله انا عارفه ان حلها مره بايخ لكن الشكوى لله هالمشكله موقفه حال برنامجي فتره مو قصيره  :wacko:

انا عملت برنامج بلغة ببيسك واستخدمت قاعدة بيانات اكسس

بيانات اكسس : جدول العربات tb_bublic_Car ( رقم العربه(primary) – نوع العربه - الموديل )

جدول صرف العربات tb_m6roof ( التسلسل (primary) – رقم العربه – اسم المستلم – رقم المستلم – تاريخ الصرف)

البيسك : يحوي شاشتين

الشاشه الاولى ( شاشة ادخال بيانات العربات في جدول العربات )

الشاشه الثانيه ( شاشة صرف العربات ) تحوي combobox لرقم العربه , حيث يختار المستخدم رقم العربه المراد اضافة سجلات صرف لها .

المشكله تمكن هنااا في انه لما سويت استعلام بهذه الشكل

Set Qur = Data1.Database.CreateQueryDef("", "select tb_bublic_car.No_board ,tb_m6roof.* from tb_bublic_car,tb_m6roof oRder by tb_bublic_car.No_board")

Set rs = Data1.Recordset.OpenRecordset(Qur, 2)

واجي عند الاضافه واقوله

rs.OpenRecordset.AddNew

تظهر لي مسج قاعدة البيانات للقراءه فقط

اضافة الى اني اشتغل على اداة DAO

انا سويت حل مبدئي انه استخدمت الاداه ado

لكن ايضا احترت ليه مااقدر استخدم الحقل المشترك للجدولين في الجدول الذي انشأه الاستعلام حيث انه يقول لي

الحقل غير موجود

db.Provider = "microsoft.jet.oledb.4.0;"

db.Open App.Path & "\db1.mdb"

rs.Open "select * from tb_bublic_Car ", db, adOpenDynamic, adLockOptimistic

rst.Open "select * from tb_m6roof,tb_bublic_car where tb_bublic_car.No_board=tb_m6roof.No_board", db, adOpenDynamic, adLockOptimistic

Set Combo1.DataSource = rs

مااعرف الغلط فين بالضبط ياريت احد يشرح لي الفكره ولو بشكل عام وربط الحقول مع الاستعلام كيف؟

Private Sub Comnext_Click()

rst.FindNext rst![No_board] & "=" & Combo1.Text

rst.MoveNext

Call showdata

End Sub

يقولي هنا غير موجود method or data member not found ويأشر على No_board

تحياتي