How to Create a Function that accepts different number ofparameters based on a number

[sureshcd10]

I ve got two buttons on my WebForm with the following code behind them
Private sub Button1_Click(......)...
cmdsql = New SqlClient.SqlCommand("ProcedureName", con)
cmdsql.CommandType = CommandType.StoredProcedure
cmdsql.Parameters.Add("@Id1", Id1)
cmdsql.Parameters.Add("@Id2", Id2)
end sub

Private sub Button2_Click(......)...
cmdsql = New SqlClient.SqlCommand("ProcedureName", con)
cmdsql.CommandType = CommandType.StoredProcedure
cmdsql.Parameters.Add("@Id1", Id1)
cmdsql.Parameters.Add("@Id2", Id2)
cmdsql.Parameters.Add("@Id3", Id3)
cmdsql.Parameters.Add("@Id4", Id4)
end sub

Now I want to replace the code between the two ButtonClik events with a common function
Is it possible to write such a function ? How ?

ie Like the following
so that I can write like this

Private sub Button1_Click(......)...
MyFunction("ProcedureName",2,"@Id1","@Id2",Id1,Id2)
end sub

Private sub Button2_Click(......)...
MyFunction("ProcedureName",3,"@Id1","@Id2","@Id3",Id1,Id2,Id3)
end sub


Public Function MyFunction(Procdurename as String,n as Integer,y as String,z as String)
dim i as integer
for i=1 to n
......
next
end function

suppose if I am giving 2 as the value on n,then myFunction should allow me to pass 2 parameters(ie 2 values for y and 2 values for z)
and if I am giving 3 as the value on n,then myFunction should allow me to pass 3 parameters(ie 2 values for y and 2 values for z)

Any one having an idea to create such a function ....

Thanks in advance

 

[PlausiblyDamp]

	Public Sub MyFunction(ByVal Procdurename As String, ByVal ParamArray params() As String)
		Dim s As String

		For Each s In params

		Next
	End Sub