Conn.Execute("Select AVG(сol1) AS Col1, AVG(col2) AS Col2, AVG(col3) AS Col3, AVG(col4) " + _
"AS Col4 INTO NewTable from Forma2 inner join Nalogoplatelchik on Forma2.INN=Nalogoplatelchik.INN " + _
"where (Forma2.OtchetniiGod=" & a1 & ") and (Nalogoplatelchik.UN_OKVED_osnov=" & c & ")")

Private Sub CommandButton1_Click()
Dim Conn As ADODB.Connection, f, doh, sred, sred1, sred2, sred3 As Recordset
Dim strConn As String, i, j, l As Long, v, NS As Variant
Dim ss( 1  To  50 ) As Long, so( 1  To  50 ) As Variant, NN( 1  To  50 ) As Variant, sr, s, N As Long, sigma As Double

If (okved.Text = "") And (Inn.Text = "") And (God1.Text = "") And (God2.Text = "") And (God3.Text = "") Then
MsgBox "Введите параметры для расчета"
Else
If okved.Text = "" Then
MsgBox "Введите ОКВЭД"
Else

Set Conn = New ADODB.Connection

strConn = "PROVIDER=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;"
strConn = strConn & "Data Source=ALISA-2B337005A;INITIAL CATALOG=Nalog;"
strConn = strConn & "User ID=;Password=;"
Conn.ConnectionString = strConn
Conn.Open
c = okved.Text
b = Inn.Text
a1 = God1.Text
a2 = God2.Text
a3 = God3.Text

'srednee
Set sred = Conn.Execute("set nocount on")
Set sred = Conn.Execute("Drop table Srednee")

Set sred = Conn.Execute("Select avg(Viruchka) as Viruchka,avg(ProcentiKpolucheniu) as ProcentiKpolucheniu,avg(ProchieDohodi) as ProchieDohodi," + _
"avg(DohodiOtUchastiyaVdrugihOrg) as DohodiOtUchastiyaVdrugihOrg,avg(PribilUbitokOtProdag) as ПрибыльУбыток_от_продаж," + _
"avg(PribilUbitokDoNO)as PribilUbitokDoNO,avg(SebestoimostProdTovarov)as SebestoimostProdTovarov,avg(KomerchesRashodi) as KomerchesRashodi," + _
"avg(UpravlenRashodi)as UpravlenRashodi,avg(ProchieRashodi) as ProchieRashodi," + _
"avg(ProcentiKUplate) as ProcentiKUplate  into Srednee from Forma2 inner join Nalogoplatelchik on Forma2.INN=Nalogoplatelchik.INN" + _
" where  (Forma2.OtchetniiGod=" & a1 & ") and (Nalogoplatelchik.UN_OKVED_osnov=" & c & ")and (UpravlenRashodi is not null ) group by  OtchetniiGod, UN_OKVED_osnov")

Set f = Conn.Execute("Select Viruchka,ProcentiKpolucheniu,ProchieDohodi," + _
"DohodiOtUchastiyaVdrugihOrg,PribilUbitokOtProdag," + _
"PribilUbitokDoNO,SebestoimostProdTovarov,KomerchesRashodi," + _
"UpravlenRashodi,ProchieRashodi," + _
"ProcentiKUplate from Forma2 inner join Nalogoplatelchik on Forma2.INN=Nalogoplatelchik.INN" + _
" where  (Forma2.OtchetniiGod=" & a1 & ") and (Nalogoplatelchik.UN_OKVED_osnov=" & c & ")and (UpravlenRashodi is not null )")

'sigma
sred.MoveFirst
sr =  0 
j =  0 
For j =  0  To  3 
sr = sr + sred.Fields(j).Value
'sred.Fields(0).Value sred.Fields(1).Value + sred.Fields(2).Value + sred.Fields(3).Value
Next
sred.MoveNext
RPsr = sred.Fields( 4 ).Value / sr

f.MoveFirst
i =  0 
s =  0 
For i =  0  To f.EOF

Do While Not f.EOF
v = f.Fields( 0 ).Value + f.Fields( 1 ).Value + f.Fields( 2 ).Value + f.Fields( 3 ).Value
RP = f.Fields( 4 ).Value / v
ss(i) = RP
NN(i) = (ss(i) - RPsr) ^  2 
s = s + NN(i) / i
i = i +  1 
j = j +  1 
f.MoveNext
Loop
Next
MsgBox s
sigma = Sqr(s)
MsgBox sigma

Dim sred1, sred2, sred3 As Recordset

Dim sred1 As ADODB.Recordset, sred2 As ADODB.Recordset, sred3 As ADODB.Recordset

Set sred = Conn.Execute("set nocount on")