Private Sub btnSpeakerEdit_Click(ByVal sender As System.Object, ByVal

Me.lstSpeakers.DataSource = speakerList.Tables(0).DefaultView
Me.lstSpeakers.ValueMember = "speaker_id"
Me.lstSpeakers.DisplayMember = "speaker_fullname"

Me.lstSpeakers.DisplayMember = "speaker_fullname"
Me.lstSpeakers.ValueMember = "speaker_id"
Me.lstSpeakers.DataSource

Private Sub LoadProductionSpeakerList()
        Dim speakerList As DataSet
        speakerList = Speaker.GetSpeaker()

        ' Set the data source
        Me.lstSpeakers.DataSource

Dim item As Integer
        For Each item As DataRowView In Me.lstSpeakers.Items
            item = lstSpeakers.SelectedValue
            Production.AddProduction_Speaker2(item)
        Next item

Dim item As DataRowView
        For Each item In Me.lstSpeakers.Items

Dim SelectedSpeakerID As Integer
        For Each item As DataRowView In Me.lstSpeakers.Items
            SelectedSpeakerID = lstSpeakers.SelectedValue
            Production.AddProduction_Speaker2(SelectedSpeakerID)
        Next item

Dim SelectedSpeakerID As Integer
        For Each item As DataRowView In lstSpeakers.SelectedValue
            SelectedSpeakerID = lstSpeakers.SelectedValue

Public Shared Function AddProduction_Speaker2() As OdbcCommand

Public Shared Function AddProduction_Speaker2(ByVal variable As String) As OdbcCommand

"INSERT INTO Production_Speaker (Speaker_ID, Production_ID) VALUES("

"INSERT INTO Production_Speaker (Speaker_ID, Production_ID) VALUES(" & MediaCenter.frmMediaCenter.lstSpeakers.SelectedValue & "," & MediaCenter.frmMediaCenter.txtGeneratedProductionID.Text & ")"

For Each objDataRowView As DataRowView In lstSpeakers.SelectedItems

For Each objDataRowView As DataRowView In lstSpeakers.SelectedItems