Multiple selection list box on an Access form

Private Sub BillsOnFile_DblClick(Cancel As Integer)
    Call SelectBills
End Sub
 
Private Sub BillsSelected_DblClick(Cancel As Integer)
    Call RemoveBills
End Sub
 
Private Sub AddBills(BillsSelected As String)
Dim strSql As String
 
On Error Resume Next 'don't warn about duplicates
    DoCmd.SetWarnings False 'don't warn about duplicates
 
    strSql = "INSERT INTO tblREPORT_SelectedAudits ( sBillSelected )SELECT """ & BillsSelected & """"
    DoCmd.RunSQL strSql
    
End Sub
 
Private Sub DeleteBills(BillsSelected As String)
Dim strSql As String
 
On Error Resume Next 'don't warn about duplicates
    DoCmd.SetWarnings False 'don't warn about duplicates
 
    strSql = "Delete tblREPORT_SelectedAudits.sBillSelected FROM tblREPORT_SelectedAudits WHERE tblREPORT_SelectedAudits.sBillSelected= """ & BillsSelected & """"
    DoCmd.RunSQL strSql
    
End Sub
 
Private Sub SelectBills()
 
Dim intCurrentRow As Integer
Dim iRowsSelected As Integer
 
    iRowsSelected = Me!BillsOnFile.ItemsSelected.Count
    
    If iRowsSelected = 0 Then
        sMsg = "You must click on at least one item to select."
        iDgDef = vbOKOnly + vbCritical
        Beep
        Call MsgBox(sMsg, iDgDef, sTitle)
        Exit Sub
    End If
 
    For intCurrentRow = 0 To Me!BillsOnFile.ListCount - 1
        If Me!BillsOnFile.Selected(intCurrentRow) Then
            Call AddBills(Me!BillsOnFile.Column(0, intCurrentRow))
        End If
    Next intCurrentRow
    
    DoCmd.Requery "BillsSelected"
    DoCmd.Requery "BillsOnFile"
End Sub
 
Private Sub RemoveBills()
 
Dim intCurrentRow As Integer
Dim iRowsSelected As Integer
 
 
    iRowsSelected = Me!BillsSelected.ItemsSelected.Count
    
    If iRowsSelected = 0 Then
        sMsg = "You must click on at least one item to select."
        iDgDef = vbOKOnly + vbCritical
        Beep
        Call MsgBox(sMsg, iDgDef, sTitle)
        Exit Sub
    End If
 
    For intCurrentRow = 0 To Me!BillsSelected.ListCount - 1
        If Me!BillsSelected.Selected(intCurrentRow) Then
            Call DeleteBills(Me!BillsSelected.Column(0, intCurrentRow))
        End If
    Next intCurrentRow
    
    DoCmd.Requery "BillsSelected"
    DoCmd.Requery "BillsOnFile"
End Sub
 
Private Sub btnAddAllBills_Click()
    Call SelectBills
End Sub
 
Private Sub btnDeselectAllBills_Click()
Dim strSql As String
 
On Error Resume Next 'don't warn about duplicates
    DoCmd.SetWarnings False 'don't warn about duplicates
 
    strSql = "DELETE tblREPORT_SelectedAudits.* FROM tblREPORT_SelectedAudits"
    DoCmd.RunSQL strSql
    
    DoCmd.Requery "BillsSelected"
    DoCmd.Requery "BillsOnFile"
 
End Sub
 
Private Sub btnRemoveAllBills_Click()
    Call RemoveBills
End Sub
 
Private Sub btnSelectAllBills_Click()
Dim strSql As String
 
On Error Resume Next 'don't warn about duplicates
    DoCmd.SetWarnings False 'don't warn about duplicates
 
    strSql = "INSERT INTO tblREPORT_SelectedAudits ( sBillSelected )SELECT qryREPORT_AuditableClients.BillsAvailable FROM qryREPORT_AuditableClients"
 
    DoCmd.RunSQL strSql
    
    DoCmd.Requery "BillsSelected"
    DoCmd.Requery "BillsOnFile"
   
End Sub
 
Private Sub btnOK_Click()
        
    '******************
    '* Run the report *
    '******************
    Call btnExit_Click
    DoCmd.OpenReport "rptBILL_Audit", acViewPreview, , , acWindowNormal
    Exit Sub
 
    
End Sub