Cita:
Iniciado por Kitty_05 
Hola Buienos dias para todos!!
Estoy ejecutando un programa que al llegar a la sentencia SQL manda el error
3709
Me guian que puede estar sucediendo ..
Marca esta linea cuando le doy DEBUG
Set BD = CONECTAR()
Set RecVar = New ADODB.Recordset
RecVar.Open " UPDATE provs SET prov_dscrp='" & DescripcionB(ind).Text & "', prov_cost='" & MontoB(ind).Text & "', prov_totalcost='" & TotMontoB.Text & "', prov_date='" & FechaB.Text & "', prov_status='" & EstadoB.Text & "', prov_creacion='" & CreadoB.Text & "', prov_autorizacion='" & AutorizadoB.Text & "', prov_aprobacion='" & AprobadoB.Text & "', prov_cancelada='" & CanceladoB.Text & "', prov_dir='" & Form1.dir2 & "', prov_dept='" & Form1.dept2 & "', prov_site='" & Form1.site2 & "' , WHERE prov_id ='" & Num_docB.Text & "', BD, adOpenStatic, adLockOptimistic"
Gracias
yo tenia un problema similar a mi se me soluciono de la siguiente manera...
en lugar de abrir le di ejecutar por que al accesar a mi aplicacion ya tengo abierta la BD
BD.Execute "INSERT INTO provs (prov_dscrp, prov_cost, prov_totalcost, prov_date, prov_status, etc....... ) VALUES ('" & DescripcionB(ind).Text & "', '" & MontoB(ind).Text & "', '" & TotMontoB.Text & "', '" & FechaB.Text & "', '" & EstadoB.Text & "', etc ................) WHERE etc..."
hay le completas.... la asignacion de valores es respectiva al campo
espero y si te funcione