Can anyone tell me if there is a better way to add records to a table based on a query. I have 2 list boxes, each populated via its own query. The purpose of the list boxes is to allow the user to add items from the "available" table to the "hotlist" table. The code works, but I'm not sure this is the best way to accomplish the task.

Private Sub btnAddToHotList_Click()
    Dim iIndex As Integer
    Dim db As Database
    Dim rsJobID As Recordset
    Set db = CurrentDb()

    iIndex = 0
    'loop through the hilighted records, adding each one to the "HotList"
    Do While iIndex < lbJobIDAvailable.ListCount
        If lbJobIDAvailable.Selected(iIndex) Then
            Set rsJobID = db.OpenRecordset("SELECT * FROM PunchListHotList WHERE([JobID] = """ & lbJobIDAvailable.ItemData(iIndex) & """)")
            'if no matching record found in the "HotList" table, add the currently selected record
            If rsJobID.EOF Then
                With rsJobID
                    !JobID = lbJobIDAvailable.ItemData(iIndex)
                End With
            End If

            Set rsJobID = Nothing
        End If
        iIndex = iIndex + 1
    're-populate both list boxes
    Set db = Nothing
End Sub