اين الخطأ هنا ؟

الكود لما بعمل بحث مش شغال خالص

ممكن اعرف الخطا فين ومش بيطلع اى رسالة خطأ حتى

Imports System.Data
Imports System.Data.SqlClient
Imports System.Globalization
Public Class Emplo_Edite
Dim dtset As New DataSet
Dim inc As Integer
Dim MaxRows As Integer

Sub filter(ByVal sqlstr1 As String)
inc = -1
Dim cn As New SqlConnection(Con_st)
Dim da As New SqlDataAdapter(sqlstr1, cn)
Dim cmb As New SqlCommandBuilder(da)
da.Fill(dtset)
MaxRows = dtset.Tables(0).Rows.Count

If MaxRows > 0 Then
inc = 0
nav()
End If

End Sub

Sub nav()
tx_id.Text = (dtset.Tables(0).Rows(inc).Item("emplo_id").ToString)
tx_nm.Text = (dtset.Tables(0).Rows(inc).Item("emplo_nm").ToString)
com_br.Text = (dtset.Tables(0).Rows(inc).Item("branch").ToString)
com_dep.Text = (dtset.Tables(0).Rows(inc).Item("dep_nm").ToString)
com_job.Text = (dtset.Tables(0).Rows(inc).Item("job_title").ToString)
tx_y_per.Text = (dtset.Tables(0).Rows(inc).Item("year_pr").ToString)
tx_sa.Text = (dtset.Tables(0).Rows(inc).Item("sa").ToString)
End Sub

Private Sub Emplo_Edite_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim cn As New SqlConnection(Con_st)
cn.Open()
Dim cm As New SqlCommand("select *from Emplo_Data", cn)
Dim dr As SqlDataReader = cm.ExecuteReader()
While dr.Read = True
com_nm.Items.Add(dr("emplo_nm").ToString)
End While
cn.Close()
cn.Dispose()
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim sqlstr = "select *from Emplo_Data where emplo_id =" & tx_id.Text
Dim cn As New SqlConnection(Con_st)
Dim sda = New SqlDataAdapter(sqlstr, cn)
Dim ds = New DataSet
sda.Fill(ds)
Dim dt = ds.Tables(0)
If dt.Rows.Count >= 0 Then
Dim dr As DataRow
dr = dt.Rows(0)
dr!emplo_id = tx_id.Text.ToString
dr!emplo_nm = tx_nm.Text.Trim.ToString
dr!branch = com_br.SelectedItem.ToString
dr!dep_nm = com_dep.SelectedItem.ToString
dr!job_title = com_job.SelectedItem.ToString
dr!year_pr = tx_y_per.Text.Trim.ToString
dr!sa = tx_sa.Text.Trim.ToString

Dim comb As New SqlCommandBuilder(sda)
sda.Update(dt)
MessageBox.Show("تم الحفظ")
cn.Close()
cn.Dispose()
End If
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
filter("SELECT * FROM Emplo_Data where emplo_nm = '" & tx_nm.Text & "'")
End Sub
End Class

ش

المفروض لما اضغط على زر البحث فى الشاشة يتم تعبئة كل تكست بوكس بالمطلوب ؟ ولكن هذا لا يحدث ؟؟؟؟