Sub s_OrderAdd()
Dim st As String
Dim cnn As New ADODB.Connection

Set cnn = CurrentProject.Connection
cnn.CommandTimeout =  600 


If MsgBox( "Ñåé÷àñ áóäóò äîáàâëåíû çàïèñè. Ïðîäîëæèòü?" , vbQuestion + vbYesNo) = vbYes Then

If Forms!f_StoreHouse!lic = True Then
'DoCmd.RunSQL ( "exec p_OrderAddLic "  & [Forms]![f_order]![id] &  ", "  & dtod(Forms!f_StoreHouse!Date1) &  ", "  & dtod(Forms!f_StoreHouse!Date2) &  " ,"  & Nz(Forms!f_StoreHouse!Maker,  0 ) &  ", "  & Nz(Forms!f_StoreHouse!Supplier,  0 ))
cnn.Execute  "exec p_OrderAddLic "  & [Forms]![f_order]![id] &  ", "  & dtod(Forms!f_StoreHouse!Date1) &  ", "  & dtod(Forms!f_StoreHouse!Date2) &  " ,"  & Nz(Forms!f_StoreHouse!Maker,  0 ) &  ", "  & Nz(Forms!f_StoreHouse!Supplier,  0 )
 ........