realizar busca no bd access e aparecer numa db grid

[hehehe]

e ai pessoal, estou querendo realizar uma busca de um cliente no banco de dados do access e que apareça num dbgrid mas não esou conseguindo me ajudem!!!!!!!!!!!!!!!

segue aonde eu parei no codigo

Dim A As String

A = InputBox("Digite o Executante?", "Fechamento", vbOKCancel)

TBCadastro.Index = "IExecutante"

TBCadastro.Seek "=", A

If TBCadastro.NoMatch Then

MsgBox ("Executante não encontrado")

Exit Sub

End If

Dim B As String

B = InputBox("Digite o Mês de Lançamento?", "Fechamento", vbOKCancel)

TBCadastro.Index = "IMes"

TBCadastro.Seek "=", B

If TBCadastro.NoMatch Then

MsgBox ("Mês de Lançamento não encontrado")

Exit Sub

End If

TBCadastro.Index = "IExecutante"

DtaBusca.Enabled = True

DtaBusca.Refresh

DBGrid = TBCadastro("Executante")

DBGrid = TBCadastro("Mês")

deu pra entender um pouco o começo, no começo eu digito o nome da pessoa e o mes em que ela foi adicionada no banco de dados e eu queria que o resultado da busca aparece-se no db grid

me ajudem!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!