<SCRIPT LANGUAGE="VBScript">
sub knopka_onclick
'-------------переменные-------------
Dim cnct
dim str
Dim Db
Dim Rst
dim DBName
dim strSource
dim strCnnString
'------------------------------------

strSource="U:\Zakaz.mdb"
Set cnct = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
strCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        strSource & ";Mode=Share Deny None;Extended Properties="""""
cnct.CursorLocation =  3 
cnct.Open strCnnString
alert "видим " & document.forma.ID_zakaz.value
str="Утвержден"
set Rst = cnct.Execute("UPDATE [Data_Заказ] SET [Data_Заказ].[СтатусЗаказа]="& str &" Where ((([Data_Заказ].[ID_zakaz])="& document.forma.ID_zakaz.value &"));")
rst.close
cnct.close
end sub
</SCRIPT>