Dim command As New SqlCommand
command.Connection = con
command.CommandText = "sp_Customer"
command.CommandType = CommandType.StoredProcedure
command.Parameters.Add(New SqlParameter("@Type", x))
Dim adapter As New SqlDataAdapter
Dim ds As New DataSet
Dim tb As DataTable
adapter.SelectCommand = command
adapter.Fill(ds, 1, 4, "Cus")
Exception=Maximum stored procedure, function, trigger, or view nesting level exceeded (limit 32)
tb = ds.Tables("cus")