Private Sub cmbDiv_Change() Dim i As Integer Dim strsql As String Dim rs As Recordset Dim dbs As Database Set dbs = CurrentDb Dim x As Integer If cmbDiv.Value = "" Then MsgBox ("Please choose from a Division to add to the tour itinerary.") Exit Sub Else strsql = "Select * from tblEmployees " & _ "where ((sDiv ='" & cmbDiv & "'));" Set rs = dbs.OpenRecordset(strsql) For i = 0 To 14 Let x = i checklbl(x).Caption = rs!sSub checklbl(x).Visible = True If rs.EOF Then i = 14 Else i = i + 1 End If Next i End If End Sub