Pessoal essa linha esta alterando todo o mdb com o registro q tento editar.
O pior e que ele esta funcionando perfeito em outro sistema meu mais o menos = o que estaria errado
Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)
query = "Select * From COMPRAS where P1 = '" & P1 & "'"
Set dyn = xxbco.CreateDynaset(query)
Dim SQL As String
SQL = "UPDATE COMPRAS SET P1 = '" & P1 & "', P2='" & P2 & "', P3='" & P3 & "' "
xxbco.Execute SQL
xxbco.Close
MsgBox "ALTERAÇÃO (Ok)!", vbExclamation
