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

If TextBox1.TextLength = 6 Then