Estou usando esta função abaixo para preencher uma grid esta funcionando normal

só que a grid nao me deixa mais fazer edição

 

Sub EncheGrid()
Dim ConnctionString$
Dim SQL$

ConnctionString$ = App.Path & "banco.mdb"

data1.DatabaseName = ConnctionString$

SQL$ = "SELECT b.campo ,a.campo ,a.campo FROM tabela1 a INNER JOIN" & _
        " tabela2 b ON a.campo = b.campo WHERE num_ordem_compra ='" &  num_compra& "'"

data1.RecordSource = SQL$

End Sub

o que preciso

 

preciso listar em uma dbgrid uma listagem de estoque aonde a descrição dos produto estao em outra tabela por isso estou juntando as tabelas para poder pegar as descriçao do produto mais quando faço isso a grid nao me deixa mais edita-la

 

alguem sabe como posso fazer isso ou se tem um jeito melhor para fzer isso não necessariamente preciso fazer isso em uma dbgrid

 

era só isso ,valeu galera !