[مصمم هاوي]

عندي قاعدة بيانات باسم  Emp.mdb  وثلاث جدوال
الجدول الأول          Emp_Data         بيانات شخصية
الجدول الثاني            Pro_Data         بيانات وظيفية
الجدول الثالث        money_Data         بيانات مالية

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

كود :

Private Sub Form_Load()
On Error Resume Next: Err.Clear
Call ConnectionDatabase

If Rs.State = adStateOpen Then Rs.Close
Rs.Open "Select ID,Name_Emp,Name_Ep,Name_gad,Name_Epgad,lakp_sora,home,lakp_sora,Date_Birth,mak,bit,hala,nambr,ikama,sarh,Tel_Emp,email,Date_Birth From Emp_Data Order BY ID ", db, adOpenStatic, adLockOptimistic
'
MSHFlexGrid1.Clear
If Rs.RecordCount > 0 Then
   
       Set MSHFlexGrid1.DataSource = Rs
Else
       Set MSHFlexGrid1.DataSource = Nothing

End If

MSHFlexgridAlignment
lVersion.Caption = App.Major & "." & App.Minor & "." & App.Revision
Call Clear_Text
End Sub