See the sample code here. here two list boxes when you selecting the first list box second will display the data as per your selection.Insert the code in the even of click/change etc. the following code is only for query second list box.(assume first list box having the data)
here 'cid' is the first column data of second list box
list67=first list box.
Dim strnewrecord As String
strnewrecord = "SELECT orderno,receiveddate FROM ord WHERE cid =list67"
List84.RowSource = strnewrecord