Private Sub save_print_Click(sender As System.Object, e As System.EventArgs) Handles save_print.Click         asd = "INSERT INTO pen ( nomer_sch1, DATA_OPL,  SUMA, IDENERGY ) VALUES (" & Me.cod.Text & ", '" & _             Format(DateValue(Me.data.Text), "MM-dd-yyyy") & "', " & Me.gumar.Text & ",'" & enid & "');"         If String.IsNullOrEmpty(Me.cod.Text) = False Then             If Me.cod.Text = "" Or Me.cod.Text = 0 Or Me.cod.Text < 0 Then                 Beep()                 MsgBox("&#1357;&#1389;&#1377;&#1388; &#1383; &#1396;&#1400;&#1410;&#1407;&#1412;&#1377;&#1379;&#1408;&#1406;&#1377;&#1390; &#1378;&#1377;&#1386;&#1377;&#1398;&#1400;&#1408;&#1380;&#1387; &#1392;&#1377;&#1396;&#1377;&#1408;&#1384;", vbInformation, "")                 Me.cod.Focus()                 Exit Sub             End If         Else             Beep()             MsgBox("&#1357;&#1389;&#1377;&#1388; &#1383; &#1396;&#1400;&#1410;&#1407;&#1412;&#1377;&#1379;&#1408;&#1406;&#1377;&#1390; &#1378;&#1377;&#1386;&#1377;&#1398;&#1400;&#1408;&#1380;&#1387; &#1392;&#1377;&#1396;&#1377;&#1408;&#1384;", vbInformation, "")             Me.cod.Focus()             Exit Sub         End If         If String.IsNullOrEmpty(Me.fio.Text) And String.IsNullOrEmpty(Me.hasce.Text) Then             Beep()             MsgBox("&#1330;&#1377;&#1386;&#1377;&#1398;&#1400;&#1408;&#1380;&#1384; &#1378;&#1377;&#1409;&#1377;&#1391;&#1377;&#1397;&#1400;&#1410;&#1396; &#1383;", vbInformation, "")             Me.cod.Focus()             Exit Sub         End If         If String.IsNullOrEmpty(Me.gumar.Text) = False Then             If Me.gumar.Text = 0 Or Me.gumar.Text < 0 Then                 Beep()                 MsgBox("&#1331;&#1400;&#1410;&#1396;&#1377;&#1408;&#1384; &#1405;&#1389;&#1377;&#1388; &#1383; &#1396;&#1400;&#1410;&#1407;&#1412;&#1377;&#1379;&#1408;&#1406;&#1377;&#1390;", vbInformation, "")                 Me.gumar.Focus()                 Exit Sub             End If         Else             Beep()             MsgBox("&#1331;&#1400;&#1410;&#1396;&#1377;&#1408;&#1384; &#1405;&#1389;&#1377;&#1388; &#1383; &#1396;&#1400;&#1410;&#1407;&#1412;&#1377;&#1379;&#1408;&#1406;&#1377;&#1390;", vbInformation, "")             Me.gumar.Focus()             Exit Sub         End If         cn.Open("Ё", "Ё", "ЁЁЁЁЁЁ")         r = cn.Execute(asd)         r = Nothing         asd = "Select [ID_IZM] From [db].[dbo].[pen] where [db].[dbo].[pen].[nomer_sch1] = " & _                     Me.cod.Text & "and [db].[dbo].[pen].[IDENERGY] = '" & enid & "' and [db].[dbo].[pen].[DATA_OPL] ='" & _                     Format(DateValue(Me.data.Text), "MM-dd-yyyy") & "' and [db].[dbo].[pen].[suma] =" & Me.gumar.Text & ";"         r = cn.Execute(asd)         Me.order.Text = r.Fields(0).Value         r = Nothing         cn.Close()         'Call sumadd(Me.Name)         'Me.erse.PerformClick()     End Sub

при нажатии на кнопку запись сохраняеца два раза