Try

            Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=personel\Database.mdb")

            Dim ds As New DataSet

            Dim da As New OleDbDataAdapter("select * from personel where sicil='" & TextBox1.Text & "'", baglanti)

            If da.Fill(ds) Then

                Form2.Show()

                da.Fill(ds, "sirala")

                Form2.DataGridView1.DataSource = ds.Tables("sirala")

            Else

                Form3.Show()

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

aranacak kod:197678
aranacak kod:197679  

 bu ben bu kodu TextBox1_TextChanged içine aranacak kod:197678
aranacak kod:197679  
bunları aradıgımızda 19767 tek tek szüyor ben şöyle istiyorum 6 karektere kadar aramasın son karekteri girince arasın
yani veritabanında en son k-veri girince arasın istiyorum

If TextBox1.TextLength = 6 Then

şeklinde metin kutusundaki değerin 6 karakter olup olmadığını kontrol edersiniz.