Hallo Zuammen
ich habe mal wieder ein Problem.

Ich will in einer MsgBox einen Wert der in einer schon vorhandenen
Abfrage [Liences - Overview] ausgeben. Jedoch gibt der mir immer die Fehlemldung aus, dass dem wohl ein Parameter fehlt, wenn ich es laufen lassen.
Den unteren code habe ich auch fast komplett aus einer Vorlage:
http://www.dbwiki.de/wiki.php?title=Access_Anf%E4nger:_Wie_greife_i...

Private Sub Licence_BU_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim free, lent As Integer

If (Me.Licence_BU <> "") And (IsNull(Me.Licence_BU) = False) Then
    Set db = CurrentDb                 ' Datenbank definieren
    strSQL = "SELECT * FROM [Licences - Overview - All BUs and their Licences] WHERE [Licence BU]='" & Forms!Userdetails_FORM!Licence_BU.Value & "'" 'SQL definieren
    Set rs = db.OpenRecordset(strSQL) ' Recordset öffnen
        
    If Not rs.EOF Then rs.MoveFirst    ' Zum ersten Datensatz
    
    Do While Not rs.EOF                ' Schleife über die Datensätze des Recordsets
      lent = rs![# Licences lent TO]   ' Wert auslesen
    Loop
    MsgBox ("DAS SOLL DER ANZEIGEN:" & lent)
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End If
End Sub

Fehlermeldung:
Laufzeitfehler 3601:
1 Parameter wurden erwartet, aber es wurden zu wenig übergeben!

Hilfe
Grüße
Roland