Werte in MsgBox aus selektierung SQL_Code

[JuergenRa]

Moin zusammen,
hier im CODE habe ich unten in der MsgBox strMeldung den Vornamen , Namen und Ort drin stehen bekomme aber die Meldung , Variabel fehler.

Er soll mir den Namen aus den SQL geben, Funktioniert leider nicht.
Hat jemand ein Tipp für mich.

Option Compare Database
Option Explicit
Sub mod_Aufgabe2b()
Dim rs As New ADODB.Recordset
Dim strSql As String
Dim strMeldung As String
Dim strVorname As String
Dim strName As String
Dim strOrt As String

strSql = "SELECT Mieter.Vorname, Mieter.Name, Mieter.Ort, Sum([Mietpreis]) AS Ges_Mietpreis, Count([Mietpreis]) AS Anzahl_Mieteinnahmen" & _
        " FROM Mieter INNER JOIN Belegung ON Mieter.MieterNr = Belegung.MieterNr" & _
        " GROUP BY Mieter.Vorname, Mieter.Name, Ges_Mietpreis,  Anzahl_Mieteinnahmen;"

    rs.Open strSql, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
   
    With rs
        If Not .EOF Then
            While .EOF = False
                strMeldung = strMeldung & "Bester Mieter!" & vbCr & "Mieteinnahmen: " & _
                Format(.Fields("Ges_Mietreis"), "0.00 €") & vbCr & "Anzahl der Buchungen: " & .Fields("Anzahl_Mieteinnahmen")
               
                rs.MoveNext
            Wend
        End If
    End With
rs.Close
Set rs = Nothing
MsgBox strMeldung, vbInformation, "Unser Champion:" & Mieter.Vorname & " " & Mieter.Name & " aus: " & Mieter.Ort & "."
End Sub

[schauan]

Hallöchen,

da ist auf den ersten Blick zumindest das zuviel:

, "Unser Champion:" & Mieter.Vorname & " " & Mieter.Name & " aus: " & Mieter.Ort & "."