PESQUISA DATAGRID

DANIELSH 22/05/2012 18:32:39
#402492

Pessoal, boa noite
estou fazendo uma pesquisa por telefone e mostrar o resultado dessa pesquisa no datagrid mas dá error 7004.

Segue meu código, o erro está em vermelho. ( Set DataGrid1.DataSource = rs )

Me ajudem.
Obrigado

Dim pesquisa As String
Dim rs As ADODB.Recordset


Set conex = New ADODB.Connection
conex.Open stringdeconexao

stringsql = [Ô] select * from Clientes where cli_telefone like [Ô]

pesquisa = txt_pesquisa.Text
stringsql = stringsql & [Ô][ô]%[Ô] & pesquisa & [Ô]%[ô][Ô]



Set rs = New ADODB.Recordset
rs.Open stringsql, conex, adOpenForwardOnly, adLockOptimistic


If rs.EOF Or rs.BOF Then
MsgBox ([Ô]Não foi encontrado nenhum registro, tente de novo[Ô]), vbInformation
Else
[txt-color=#e80000]Set DataGrid1.DataSource = rs[/txt-color]

rs.Close
Set rs = Nothing
End If