试试这个：

Dim str As String
Dim drv As DataRowView = CType(ListBox1.SelectedItem, DataRowView)
str = CStr(drv.Row.Item("FirstName")) & " " & CStr(drv.Row.Item("LastName"))
ListBox2.Items.Add(str)