How to Pass Parameter Where Clause IN?

I facing Problem on pass the Parameter on WHERE Clause IN On VB.NET site
I have a Function below:

Public Function getProjectDS(ByVal ProjectID As String) As DataSet

Dim cmd As New SqlCommand
cmd.Connection = con
cmd.CommandText = "SELECT * FROM Project WHERE ProjectID IN (@ProjectID)"
cmd.Parameters.Add("@ProjectID", SqlDbType.VarChar).Value = ProjectID

Dim ds As New DataSet
Dim da As New SqlDataAdapter(cmd)

da.Fill(ds)

Return ds

End Function

I like to get list Project Detail as in MSSQL Query as below:

SELECT * FROM Project WHERE ProjectID IN ('PFP','PSB','PSK')

I can not get same result as MSSQL Query if i use Function getProject("PFP,PSK,PSB")
just get nothing.
But if i use Function getProject("PFP") it only get me Project On ProjectID PFP Details.


I needed to help on Passing parameter ON WHERE CLAUSE IN On VB.net Site

Tags: Visual Basic