Bom dia!

Estou realizando um rotina de COnsulta no BD, atraves de uma Combox, onde aparecem os nome Cadastrados.
Porém, ao clicar no Botao (Consulta), aparece a mensagem:   [Ô]Nenhum valor foi fornecido par aum ou mais parametros necessários[Ô]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        St = [Ô]Select * from tblClientes Where RazaoCliente =  [Ô] & (BuscaCliente.Text)
        tblClientes_DataAdapter = New OleDb.OleDbDataAdapter(St, BDCOnexao)
        tblClientes_DataAdapter.Fill(Clientes_DataSet, [Ô]tblClientes[Ô])

        Dim BuscaClientes As DataTable = Clientes_DataSet.Tables([Ô]tblClientes[Ô])
        Dim TabelaClientesLinhas As DataRow


        If BuscaClientes.Rows.Count > 0 Then
            TabelaClientesLinhas = BuscaClientes.Rows(0)
            txtCodClientes.Text = TabelaClientesLinhas([Ô]CodCliente[Ô])
            txtCNPJCliente.Text = TabelaClientesLinhas([Ô]CNPJCliente[Ô])
            txtIECliente.Text = TabelaClientesLinhas([Ô]IECliente[Ô])
            txtRazaoCliente.Text = TabelaClientesLinhas([Ô]RazaoCliente[Ô])
            txtEmailCliente.Text = TabelaClientesLinhas([Ô]EmailCliente[Ô])
            txtEndCliente.Text = TabelaClientesLinhas([Ô]EndCliente[Ô])
            txtnumCliente.Text = TabelaClientesLinhas([Ô]NumCliente[Ô])
            txtBairroCliente.Text = TabelaClientesLinhas([Ô]BairroCliente[Ô])
            txtCidadeCliente.Text = TabelaClientesLinhas([Ô]CidadeCliente[Ô])
            txtEstadoCliente.Text = TabelaClientesLinhas([Ô]EstadoCliente[Ô])
            txtCepCliente.Text = TabelaClientesLinhas([Ô]CEPCLiente[Ô])
            txtFoneCliente.Text = TabelaClientesLinhas([Ô]FoneCliente[Ô])

        End If
        BuscaClientes.Reset()
    End Sub

Bom dia!

Obrigado pela ajuda. Funcionou perfeitamente.

Essas  [Ô]  ainda me mata..rs

Vlw
Abraço.

Posta o codigo aqui.