I was wondering when I select a row in listbox1, how do I automatically select a row in listbox2 too?

Another question is how do I allow 2 fields of my database to be populated to my listbox? Example modulecode and modulename values are shown in listbox.
I tried using this code but it did not work. I am certain that the modulecode is the first and primary key column.

VB Code:
  1. Dim cap As New CAPS_BIZ1.Service1
  2.  
  3.                 ListBox1.DataSource = cap.populateAssignedData()
  4.        
  5.  
  6.         ListBox1.DataTextField = "modulecode"
  7.         ListBox1.DataValueField = "modulename"
  8.  
  9.         ListBox1.DataBind()

What should I do?