Как вставить элементы списка в базу данных[INSERT] и получить его для[UPDATE/EDIT]

---

У меня возникла проблема с тем, как я могу вставить элементы, перечисленные в listbox, и вернуть их для обновления.

Что я уже пробовал:

Это код для списка, заполненного базой данных:

'Populate the ListBox with personnelName from personnel '
      Try
          myConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Nikko Jaze Fabellon\Documents\ASRASIM.accdb")
          myConnection.Open()
          ds = New DataSet
          tables = ds.Tables
          da = New OleDbDataAdapter("SELECT [FirstName],[LastName] from [Personnel] where [Status] = 'Activated' ", myConnection)
          da.Fill(ds, "Personnel")
          Dim view1 As New DataView(tables(0))
          With personnelList
              .DataSource = ds.Tables("Personnel")
              .DisplayMember = "FirstName"
              .ValueMember = "LastName"
              .SelectedIndex = 0
          End With

          myConnection.Close()

      Catch ex As Exception
          MessageBox.Show(ex.Message)
      End Try

И это код при добавлении элементов из заполненного списка с базой данных в другой список: (спасибо А. Гриффину за помощь мне с этим кодом)

<pre>
        Try
            Dim str As String
            Dim drv As DataRowView = CType(personnelList.SelectedItem, DataRowView)
            str = CStr(drv.Row.Item("FirstName")) & " " & CStr(drv.Row.Item("LastName"))
            ListBox1.Items.Add(str)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

---