Private Sub cmdLoadProducts_Click()
    Dim lbo As ListBox
    Dim itm As Variant
    Dim intI As Integer
    Dim strSelectedProducts As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT prodTagID from tblSelectedProducts")
    With rs
        Do While Not .EOF
            strSelectedProducts = strSelectedProducts & "~" & .Fields("prodTagID")
            .MoveNext
        Loop
        Close
    End With
    Set rs = Nothing
    strSelectedProducts = strSelectedProducts & "~"
    Set lbo = Me.lboProducts
    For intI = 0 To lbo.ListCount - 1
        If InStr(1, strSelectedProducts, "~" & lbo.ItemData(intI) & "~") > 0 Then
            lbo.Selected(intI) = True
        End If
    Next
End Sub

Private Sub Form_Load()
  hiliteDefaults Me.lstOne
End Sub

Public Sub hiliteDefaults(lst As Access.ListBox)
  Dim varItm As Variant
  Dim i As Integer
  For i = 0 To (lst.ListCount - 1)
    If lst.Column(1, i) Then
      lst.Selected(i) = True
    End If
  Next i
End Sub

Private Sub ATextBox_AfterUpdate()
  If Not IsNull(Me.ATextBox) Then
    hiliteDefaults Me.lstOne
  End If
End Sub

Public Sub hiliteDefaults(lst As Access.ListBox)
  Dim varItm As Variant
  Dim i As Integer
  For i = 0 To (lst.ListCount - 1)
    If Instr(lst.Column(1, i),Me.ATextBox) > 0 Then
      lst.Selected(i) = True
    End If
  Next i
End Sub