Hur kan man få till detta min hjärna funkar inte på detta.

Jag vill plocka ut data från en accessdatabas från två tabeller som ska presenteras i en flexgrid.

Set rs = dbs.OpenRecordset(" SELECT ID, Namn FROM tblNamn Where Avd = '" & Lblavd.Caption & "' order by Namn Asc", dbOpenSnapshot) 
 
Set rs = dbs.OpenRecordset("select Sum(" & "Per" & (A) & ")As iSum from tblPlats Where Avd = '" & Lblavd.Caption & "' and Namn = '" & MSFlexGrid2.TextMatrix(i, 1) & "'", dbOpenSnapshot)
 

Do Until rs.EOF
    
    For i = 1 To X
    
    MSFlexGrid2.TextMatrix(i, 0) = rs.Fields("ID").Value & vbNullString
    MSFlexGrid2.TextMatrix(i, 1) = rs.Fields("Namn").Value & vbNullString
    MSFlexGrid2.TextMatrix(i, 2) = rs.Fields("iSum").Value & vbNullString

    rs.MoveNext
   
    Next i
    
     Loop

Nåt sånt här kanske?

-- TODO: Se till att @Avd = Lblavd.Caption
SELECT n.ID, n.Namn, ISNULL(SUM(p.Per1), 0) AS iSum1, ISNULL(SUM(p.Per2), 0) AS iSum2, -- o.s.v.
FROM tblNamn n 
LEFT OUTER JOIN tblPlats p ON n.Avd = p.Avd AND n.Namn = p.Namn 
WHERE n.Avd = @Avd
GROUP BY n.ID, n.Namn 
ORDER BY n.Namn ASC

MSFlexGrid2.TextMatrix(i, 2) = rs.Fields("iSum" & A).Value & vbNullString