Sub Load_listbox1()
     Dim row as DataRow

     For Each row1 in table1.Rows
          '0 is to represent the zero-based index of the column you're pulling from.
          listbox1.Items.Add = Cstr(row1(0))
     Next
End Sub

Sub Move_To_listbox2()
     listbox2.Items.Add = listbox1.SelectedValue
End Sub

Sub Update_Table2()
     'Delcare SQL Command and Connection parameters here
     'The SQL code to update Table2 should look something like "INSERT INTO Table 2 (column_name = '" & listbox2.SelectedValue & "')"

     'Then query against table2 and pull it into a dataset and from the dataset repopulate listbox2
     Dim row as DataRow

     For Each row in table2.Rows
          '0 is to represent the zero-based index of the column you're pulling from.
          listbox2.Items.Add = Cstr(row(0))
     Next
End Sub