LOCALIZAR CLIENTE PELO NOME

Cliente = InputBox([Ô]Nome do Cliente[Ô],[Ô]Digite o Nome[Ô])

Dim MySQL_Select As String = [Ô]SELECT * FROM Clientes WHERE Cli_Nome =[Ô] & Cliente
Dim MyConn As OleDbConnection = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path([Ô]\App_Data\SeuBanco.mdb[Ô]) & [Ô];Persist Security Info=False[Ô])

Dim ObjRead As OleDbDataReader
Dim Comm As New OleDbCommand(MySQL_Select, MyConn)

Try
    MyConn.Open()

    ObjRead = Comm.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

     While (ObjRead.Read())

                    [ô]Preenchendo Campos
                    TxtNomeRazao.Text = ObjRead(1).ToString
                    TxtEndereco.Text = ObjRead(2).ToString
                    TxtNumero.Text = ObjRead(3).ToString
                    TxtComplemento.Text = ObjRead(4).ToString
                    TxtBairro.Text = ObjRead(5).ToString
                    TxtCidade.Text = ObjRead(6).ToString
                    TxtCep.Text = ObjRead(7).ToString
                    TxtFixoDDD.Text = ObjRead(9).ToString
                    TxtTelFixo.Text = ObjRead(10).ToString
                    TxtCelDDD.Text = ObjRead(11).ToString
                    TxtCelular.Text = ObjRead(12).ToString
                    TxtEmail.Text = ObjRead(14).ToString
                    TxtConfEmail.Text = ObjRead(15).ToString
                    TxtCPFCNPJ.Text = ObjRead(16).ToString
                    TxtUsuario.Text = ObjRead(0).ToString
                    Exit While

    End While
Catch ex As Exception
    Response.Write(ex.Message)
Finally
    MyConn.Close()
End Try