أريد تحويل هذا الاستعلام الى استعلام stored procedure

	Dim SqlDa As New SqlDataAdapter
	   Dim ds As New DataSet
		Dim cmd As New SqlCommand
		Dim StrCon As String = ""
		Dim Conn As New SqlConnection
			If IsPostBack = True Then
			'------------------------------------------------
		   Conn.ConnectionString = "Server=Os2;uid=sa;pwd=;database=T"
			If Conn.State = ConnectionState.Open Then Conn.Close()
			Conn.Open()
			'------------------------------------------------
			sql = ""
			If x_Num.Text <> "" Then
				sql = IIf(sql = "", sql, sql & " and ")
				sql = sql & "x_Num =" & x_Num.Text
			End If
		   ----------------------------------------------------
			If X_Type.SelectedValue <> "" Then
				sql = IIf(sql = "", sql, sql & " and ")
				sql = sql & "X_Type =" & X_Type.SelectedValue
			End If
		  --------------------------------------------------------
			If x_No.Text <> "" Then
				sql = IIf(sql = "", sql, sql & " and ")
				sql = sql & "x_No =" & x_No.Text
			End If
		  --------------------------------------------------------- 
			If X_YName .Text <> "" Then
				sql = IIf(sql = "", sql, sql & " and ")
				sql = sql & "X_YName LIKE'%" & X_YName .Text & "%'"
			End If
		   ------------------------------------------------------
			If  X_WName.Text <> "" Then
				sql = IIf(sql = "", sql, sql & " and ")
				sql = sql & "X_WName LIKE'%" & X_WName.Text & "%'"
			End If
		   -------------------------------------------------------
			If x_Type.SelectedValue <> "" Then
				sql = IIf(sql = "", sql, sql & " and ")
				sql = sql & "x_Type =" & x_Type.SelectedValue
			End If
		  ------------------------------------------------------
			sql = IIf(sql = "", sql, sql & " and ")
			sql = sql & "x_Flag =" & 1
			If x_Code.Text = "" Then
				sql = IIf(sql = "", sql, sql & " and ")
				sql = sql & "x_Code ='" & x_Code.SelectedValue & "'"
				sql = sql & " And (x_State = 23 Or x_State = 24 Or x_State = 27)"
				sql = "SELECT * FROM AddressBook  where " & sql
			Else
				sql = IIf(sql = "", sql, sql & " and ")
				sql = sql & "Addrss_code ='" & Addrss_code.SelectedValue & "'"
				sql = sql & " And (x_State = 23 Or x_State = 24 Or x_State = 27)"
				sql = "SELECT *FROM AddressBook INNER JOIN Profiles ON Profiles.x_Code=AddressBook.x_Code1 where " & sql
			End If
			----------------------------------------------------
		   cmd.CommandText = sql
			cmd.Connection = Conn
			SqlDa.SelectCommand = cmd
			SqlDa.Fill(ds)
			DataGrid1.DataSource = ds
			DataGrid1.DataBind()
			DataGrid1.Visible = True
			Conn.close

-------------------------------------------------

أرجو منكم تحويل هذا الكود للإستعلام حيث اننى حاولت عدة محاولات لم تنفع فى البحث عن اكثر من قيمة فى وقت واحد والبحث باكثر من جملة .