sonuç bir düğmeye basınca mı gelecek yoksa form yüklenince mi?
aşağıdaki yordamı ona göre uygun bir yerden çağırırsınız.

Sub Rs2Metin()

SQL = " SELECT Tablo2.firmaadi, ConcatRelated(""sirano"",""Tablo1"",""[firma]="" & [firma]) AS sonuc" & _

      " FROM Tablo2 INNER JOIN Tablo1 ON Tablo2.Kimlik = Tablo1.sirano" & _

      " GROUP BY Tablo2.firmaadi, ConcatRelated(""sirano"",""Tablo1"",""[firma]="" & [firma]);"



Set rs = CurrentProject.Connection.Execute(SQL)

If Not rs.EOF And Not rs.BOF Then xSonuc = rs.GetString(, , " : ", vbNewLine) & "Malzemeler kalmıştır" Else xSonuc = "Kayıt bulunamadı"

Metin0 = xSonuc

End Sub