Mra lo intente con BD.Execute mando error, lo intenta con
Set BD = CONECTAR()
Set RecVar = New ADODB.Recordset
RecVar.Open "UPDATE provs(prov_dscrp, prov_cost, prov_totalcost, prov_date, prov_status, prov_creacion, prov_autorizacion, prov_aprobacion, prov_cancelada, prov_dir, prov_dept, prov_site) VALUES ('" & DescripcionB(ind).Text & "', '" & MontoB(ind).Text & "', '" & TotMontoB.Text & "', '" & FechaB.Text & "', '" & EstadoB.Text & "', '" & CreadoB.Text & "','" & AutorizadoB.Text & "','" & AprobadoB.Text & "', '" & CanceladoB.Text & "','" & Form1.dir2 & "','" & Form1.dept2 & "','" & Form1.site2 & "') , BD, adOpenDynamic, adLockOptimistic"
RecVar.Close
Y continua mandando el error 3709
voy a llorar