Arkadaşlar aşağıdaki kodla koşula gore işlem yaptırıyorum

1.de : Eğer textboxta girilen değer veritabanındaki ile eşit değilse kaydın mevcut olmadığını
2.de :datagridviewin son satırına kadar olan veriyi kontrol ediyor ve eşitsizlik sozkonusu ise textboxun silinmesi halinde listeyi yeniden vermesini sağlıyor.
3.de : eğer veritabanında olan tc ile aynı değere sahipse kişinin bilgilerini ilgili textboxlara aktarıyor.

1. koşulu bir turlu doğru oluşturamadım. her seferinde girdiğim sayıda mesaj kutusu acılıyor. oysa sadece bir defa hatayı verip kayıt işlemine gecmem lazım.

Kod:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim DAdp As String Dim Dset As DataSet = New DataSet Dim i As Integer, j As Integer For i = 0 To DataGridView1.Rows.Count - 1 If TextBox1.Text "" Then TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox6.Clear() MsgBox("Kayıt Bulunamadı ..." & Chr(10) & "Yeni İşlem İcin Tamam Butonuna Basın", MsgBoxStyle.Information, "KAYIT YOK") Exit Sub ElseIf DataGridView1.Rows.Count - 1 = 0 Then DAdp = "Select TcNo,SicilNo,Adi,Soyadi From VerilerSGK" Else DAdp = "Select TcNo,SicilNo,Adi,Soyadi From VerilerSGK Where TcNo Like'" & TextBox1.Text & "%" & "'" TextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value TextBox3.Text = DataGridView1.CurrentRow.Cells(2).Value TextBox4.Text = DataGridView1.CurrentRow.Cells(3).Value j = j + 1 End If Next Dim Ds As OleDbDataAdapter = New OleDbDataAdapter("Select TcNo,SicilNo,Adi,Soyadi From VerilerSGK", Baglanti) Ds.Fill(Dset, "VerilerSGK") DataGridView1.DataSource = Dset.Tables(0) If TextBox1.Text = String.Empty Then TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox6.Clear() End If End Sub
Yardımlarınız icin şimdiden teşekkurler.
__________________