Delete Records on a Form in Microsoft Access

I have a button on a form that will allow the user to delete the record that is being displayed.  I want to give them the ability to delete multiple records (multiple tables linked) at one time.  I thought about building a form that lists quote numbers and names and adding a "Delete" checkbox so that the user can choose the Quotes they want to delete.  I'm not sure if I use a combo box or list box.  Also, would I need to loop through the chosen records in VBA in order to delete multiple quotes at one time?  Below is my current Delete routine.

Thanks!

Private Sub cmdDeleteQuote_Click()
Dim msg, Style, Title, Help, Ctxt, Response, MyString
Dim db As DAO.Database
Dim rstQuote As DAO.Recordset
Dim strSQL As String
Dim strQuoteNo As String

On Error GoTo Delete_Quote_Err


Set db = CurrentDb()

strQuoteNo = Me.QuoteNo
strQuoteName = Me.Quote_Name

' Define Message, Buttons and Title
msg = "You are about to delete Quote: " & Me.QuoteNo & ": " & Me.Quote_Name & _
        ", are you sure you want to continue?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Delete Quote"

'Prompt use if they want to delete quote
Response = MsgBox(msg, Style, Title, Help, Ctxt)

If Response = vbYes Then
    DoCmd.OpenQuery ("qdel_Quotes")
    DoCmd.OpenQuery ("qdel_Quote_Equipment")
    DoCmd.OpenQuery ("qdel_Quote_Disposables")
    DoCmd.OpenQuery ("qdel_Quote_Team")
    DoCmd.OpenQuery ("qdel_Quote_Bookings")
   
    strSQL = "Select QuoteNo, Total_Versions from tbl_Quotes where QuoteNo = '" & strQuoteNo & "';"
    Set rstQuote = db.OpenRecordset(strSQL, dbOpenDynaset)
    'Update Quote Version Numbers
    If rstQuote.EOF Then
        intVersions = 0
    Else
        intVersions = rstQuote!Total_Versions - 1
    End If
    If intVersions <> 0 Then
        strSQL = "Update tbl_Quotes " & _
                "Set Total_Versions = " & intVersions & _
                " Where QuoteNo = '" & Me.txtQuoteNo & "';"
    DoCmd.RunSQL strSQL
    End If
    MsgBox ("Quote " & strQuoteNo & ": " & strQuoteName & "has been deleted.")
   
    'Refresh Forms
    Me.txtQuoteNo = ""
    Me.cboQuoteName.Requery
    Me.fsub_Equipment_Selected.Form.Requery
    Me.Form.Requery
    Me.txtListPrice = 0
Else
    MsgBox ("Quote " & Me.QuoteNo & ": " & Me.Quote_Name & " was not deleted.")
End If