I am trying to pass multiple values as parameters into my update command:

UPDATE tblUserDetails SET DeploymentNameID = 102 WHERE ((EmployeeNumber IN (@selectedusersparam)));

I develop my parameter (@selectedusersparam) using the following subroutine:

Private Sub btnAddUsersToDeployment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddUsersToDeployment.Click

Dim iVal As Integer = 0

Dim SelectedCollection As String

SelectedCollection = ""

If (lsbUsersAvail.Items).Count > 1 Then

For iVal = 0 To lsbUsersAvail.Items.Count - 1

If lsbUsersAvail.Items(iVal).Selected = True Then

SelectedCollection = SelectedCollection & "," & lsbUsersAvail.Items(iVal).Value

End If

Next

SelectedCollection = Mid(SelectedCollection, 2, Len(SelectedCollection))

Session.Item("SelectedCollectionSession") = SelectedCollection

SqlDataSource4.Update()

ltlUsersMessage.Text = String.Empty

'UPDATE tblUserDetails SET DeploymentNameID = @DeploymentNameIDparam WHERE (EmployeeNumber IN (@selectedusersparam))

'SqlDataSource4.UpdateCommand = "UPDATE tblUserDetails SET DeploymentNameID = @DeploymentNameIDparam WHERE (EmployeeNumber IN (" + SelectedCollection + ")"

Else

ltlUsersMessage.Text = "Select users before adding to deployment. Hold Control for multiselect"

End If

End Sub

Protected Sub btnRemoveUsersFromDeployment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemoveUsersFromDeployment.Click

Dim iVal2 As Integer = 0

Dim SelectedCollection2 As String

SelectedCollection2 = ""

If (lstUsersToRemoveFromDeployment.Items).Count > 0 Then

For iVal2 = 0 To lstUsersToRemoveFromDeployment.Items.Count - 1

If lstUsersToRemoveFromDeployment.Items(iVal2).Selected = True Then

SelectedCollection2 = SelectedCollection2 & "," & lstUsersToRemoveFromDeployment.Items(iVal2).Value

End If

Next

SelectedCollection2 = Mid(SelectedCollection2, 2, Len(SelectedCollection2))

Session.Item("SelectedCollectionSession") = SelectedCollection2

SqlDataSourceInCurrentDeployment.UpdateCommand = "UPDATE tblUserDetails SET DeploymentNameID = null WHERE ((EmployeeNumber IN (" + SelectedCollection2 + ")))"

SqlDataSourceInCurrentDeployment.Update()

Else

MsgBox("Please select user(s) first")

End If

End Sub