Depois de muita pesquisa e não encontrava ou não entendia rsrs os códigos das pesquisa, em site nenhum conseguia uma solução
então peguei os dois códigos e comecei a fazer comparações e cheguei a uma conclusão entre as conexões (DAO) e (ADO)
E assim consegui EDITAR o banco de dados access.
aqui vai os códigos:
Código 1 (DAO)
Global banco As Database
Global consulta As Recordset
Dim ComandoSQL As String
Dim id As Integer
id = txtcodEstoq
ComandoSQL = "select * from tabela_clientes where Código like '" & id & "' "
Set banco = OpenDatabase("C:UsersVictor SamDropboxJu Pro salvoBdadosCadastro_clientes.mdb")
Set consulta = banco.OpenRecordset(ComandoSQL)
consulta.Edit
consulta("campo") = Me.txtResSoma
consulta.Update
Set banco = Nothing
Set consulta = Nothing
Código 2 (ADO)
Dim ComandoSQL As String
Dim id As Integer
id = txtcodEstoq
Set cnn = New ADODB.Connection
ComandoSQL = "select * from [tabela_clientes] where [Código] like '" & id & "' "
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:endereço.accdb"
Set rst = New ADODB.Recordset
rst.Open ComandoSQL, cnn, adOpenKeyset, adLockOptimistic
rst.Fields("campo") = Me.txtResSoma
rst.Update
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Pra quem tiver enteressado ta ai.
O código ADO foi eu que montei, se alguém tiver mais alguma dica é só postar, aqui ta funcionando
Tentar não é saber, é ter a certeza que vai descobrir
Dicas excel, vba, Access http://vbaedit.blogspot.com.br/
Postado : 29/10/2014 6:02 pm