Hi Frank!
Try this in a command button click or in the afterupdate of the list box:
Dim intRow As Integer
For intRow = 0 To Me!YourListBox.ListCount - 1
If Me!YourListBox(intRow).Selected = True Then
Text1.Value = Me!YourListBox.Column(0, intRow)
Text2.Value = Me!YourListBox.Column(1, intRow)
Exit For
End If
Next intRow
hth
Jeff Bridgham
bridgham@purdue.edu