كيفية عمل جملة sql وتجيب البيانات بتعتها من جدولين

السلام عليكم ورحمة الله وبركاته:

اخي العزيز .....

مع لفت نظرك لشيئ هو الجدول maindate لماذا قمت بإضافة عمود خاص بإسم الجهاز مع العلم انه موجود مسبقا في الجدول الخاص بيانات الأجهزة , فمن رأي انك تكتفي بوجود في جدول بيانات الاجهزة.

ولقد قمت بصنع مثال لما تريده وارجو ان يكون هو المطلوب....

تحياتي واليك الكود التالي وهو كود المثال المرفق

Dim cnn As New ADODB.Connection
	cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database1.mdb;Persist Security Info=False"

Dim rs As New ADODB.Recordset
	rs.Open "SELECT pcdate.PC_ID, Count(maindate.PC_ID) AS Count_OF_Actions" & _
		" FROM pcdate INNER JOIN maindate ON pcdate.PC_ID = maindate.PC_ID " & _
		" GROUP BY pcdate.PC_ID;", cnn

''''''''''''''''' ÊÚÈÃÊ ÇáÌÑíÏ ÈÇáÈíÇäÇÊ
Dim i As Long
Dim k As Long
MSFlexGrid1.Clear
MSFlexGrid1.Rows = 1
If Not rs.EOF Then

	MSFlexGrid1.Cols = rs.Fields.Count
	For i = 0 To rs.Fields.Count - 1
		MSFlexGrid1.TextMatrix(0, i) = rs.Fields(i).Name
		Select Case i
			Case Is = 0
				MSFlexGrid1.ColWidth(i) = 500
				MSFlexGrid1.ColAlignment(i) = 3
			Case Is = 1
				MSFlexGrid1.ColWidth(i) = 3000
				MSFlexGrid1.ColAlignment(i) = 2
			Case Else
				MSFlexGrid1.ColWidth(i) = 1500
				MSFlexGrid1.ColAlignment(i) = 2
		End Select
	Next i
	k = 1
	Do While Not rs.EOF
		MSFlexGrid1.Rows = k + 1
		For i = 0 To rs.Fields.Count - 1
			If rs(i).Value <> "" Then _
					MSFlexGrid1.TextMatrix(k, i) = rs(i).Value
		Next i
		rs.MoveNext
		k = k + 1
	Loop
	MSFlexGrid1.Enabled = True
	MSFlexGrid1.Visible = True
Else
	MSFlexGrid1.Enabled = False
End If

s.zip