سؤال فى الاستعلام

السلام عليكــم ورحمـة الله وبركاتــه ،،

يوجد لدى مشكلة عند عرض البيانات حيث اننى اريد عرض الادارت فى datagrid وعند عمل مسح للtextbox يتم عرض جميع الادارات فى datagrid ولكن يحدث مشكلة عند مسح textbox

الكود كالاتى

  Dim tb3 As New DataTable
		cmd.Connection = cn
		cmd.CommandType = CommandType.StoredProcedure
		cmd.CommandText = "selectall"
		tb3.Load(cmd.ExecuteReader)
		DataGridView1.DataSource = tb3

هذا الكود خاص بجلب جميع الادارت من الجدول وشغال المشكلة عند مسح textbox يظهر خطا

Failed to convert parameter value from a String to a Int32.

ويقف على هذا السطر

cmd.Parameters.Add("@id", SqlDbType.Int).Value = TextBox1.Text

Dim tb2 As New DataTable

cn.Open()

cmd.Connection = cn

cmd.Parameters.Clear()

cmd.CommandType = CommandType.StoredProcedure

cmd.CommandText = "selectsome"

cmd.Parameters.Add("@id", SqlDbType.Int).Value = TextBox1.Text

tb2.Load(cmd.ExecuteReader)

DataGridView1.DataSource = tb2

حيث ان هنا يقوم بالاستعلام على حسب رقم الادارة