Select og så MsgBox inden Insert

Hej,

Har fölgende:
Private Sub btnSelective_Click()
DoCmd.SetWarnings False
Dim sSQL As String

    If IsNull(txtBeloppFrån) Then
        MsgBox "Du måste ange belopp!", vbCritical, "kundtyp!"
        Me.txtBeloppFrån.BackColor = vbRed
        Me.txtBeloppFrån.SetFocus
    ElseIf IsNull(txtBeloppTill) Then
        MsgBox "Du måste ange belopp!", vbCritical, "kundtyp!"
        Me.txtBeloppTill.BackColor = vbRed
        Me.txtBeloppTill.SetFocus
    ElseIf IsNull(txtSekvens) Then
        MsgBox "Du måste ange sekvens!", vbCritical, "kundtyp!"
        Me.txtSekvens.BackColor = vbRed
        Me.txtSekvens.SetFocus
    Else

sSQL = "INSERT INTO tblBook ([brvCustomerNo], [brvSequence], [brvAmount])" & vbCrLf & _
"SELECT (CUS.[No_]), (RBC.[Rent Sequence]), SUM(CLE.[Remaining Amount])" & vbCrLf & _
"FROM [dbo_vw_Thorn_Svenska_AB$Customer] AS CUS, [dbo_vw_Thorn_Svenska_AB$Cust__Ledger_Entry] AS CLE, [dbo_vw_Thorn_Svenska_AB$Rent_Billing_Customer] AS RBC" & vbCrLf & _
"WHERE CLE.[Customer No_] = RBC.[Customer No_] AND CUS.[No_] = RBC.[Customer No_] AND CLE.[Open] = 1 AND CLE.[Ledger Type] = 2 AND RBC.[Customer Status Rent] = 0 AND CUS.[No_] BETWEEN '" & txtKundnummerFrån.Value & "' AND '" & txtKundnummerTill.Value & "'  AND RBC.[Rent Sequence] = " & txtSekvens.Value & " AND CLE.[Remaining Amount] BETWEEN '" & txtBeloppFrån.Value & "' AND '" & txtBeloppTill.Value & "' " & vbCrLf & _
"GROUP BY (CUS.[No_]), (RBC.[Rent Sequence]) "
DoCmd.RunSQL sSQL
 
MsgBox "Så här många kunder blev selekterade. Önskar du att boka breven?"
 
End If
End Sub

Linjen med MsgBox vil jeg gerne vise hvor mange kunder som blev udvalgt. Hvis svar JA så gemmes de i tabellen og hvis nej så droppes de.