DATAGRID

Citação:

:

Public Sub conecta()
On Error GoTo trata
With con1
.Provider = [Ô]Microsoft.Jet.OLEDB.4.0[Ô] [ô]provedor para access
.[txt-color=#e80000]CursorLocation = adUseClient[/txt-color] [ô] Deste jeito
.ConnectionString = [Ô]Data Source=[Ô] & App.Path & [Ô]Bancodados.mdb[Ô] [ô]caminho do banco
.Open [ô]executa a abertura do banco
End With
Exit Sub
trata:
MsgBox Err.Number & Err.Description
End Sub

Private Sub txtPesquisa_Change()
Set Tabela = New ADODB.Recordset
Tabela.Open [Ô]Select * From TabCadastro where nome like [ô][Ô] & txtPesquisa.Text & [Ô]%[ô][Ô], con1
Set grdSocio.DataSource = Tabela
End Sub

Evite usar objeto Data e Adodc.
Seu Formuláro de pesquisa não precisa está preenchido,isto devido ser para pesquisa.