adds new entry only when clicked on OK (until now this also added an empty entry when clicked on cancel)

Gästeliste/Gästeliste.vbproj

@@ -17,13 +17,13 @@
     <PublishUrl>Z:\Gaesteliste\</PublishUrl>
     <Install>true</Install>
     <InstallFrom>Web</InstallFrom>
-    <UpdateEnabled>true</UpdateEnabled>
+    <UpdateEnabled>false</UpdateEnabled>
     <UpdateMode>Foreground</UpdateMode>
     <UpdateInterval>7</UpdateInterval>
     <UpdateIntervalUnits>Days</UpdateIntervalUnits>
     <UpdatePeriodically>false</UpdatePeriodically>
     <UpdateRequired>false</UpdateRequired>
-    <MapFileExtensions>true</MapFileExtensions>
+    <MapFileExtensions>false</MapFileExtensions>
     <InstallUrl>http://tools.dominicreich.com/Gaesteliste/</InstallUrl>
     <UpdateUrl>http://tools.dominicreich.com/Gaesteliste/</UpdateUrl>
     <SupportUrl>http://tmsn.at/%3ftools&amp;gaesteliste</SupportUrl>
@@ -32,7 +32,7 @@
     <PublisherName>Dominic Reich</PublisherName>
     <MinimumRequiredVersion>1.0.0.0</MinimumRequiredVersion>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
-    <ApplicationRevision>18</ApplicationRevision>
+    <ApplicationRevision>20</ApplicationRevision>
     <ApplicationVersion>1.0.1.%2a</ApplicationVersion>
     <UseApplicationTrust>true</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>

Gästeliste/frmMain.vb

@@ -142,7 +142,9 @@ Public Class frmMain
         End With
 
         Try
-            dt.Rows.Add(dr)
+            If oForm.DialogResult = vbOK Then
+                dt.Rows.Add(dr)
+            End If
         Catch ex As Exception
             MsgBox("Gast konnte nicht hinzugefügt werden." & vbCrLf & ex.Message)
         End Try
@@ -210,8 +212,8 @@ Public Class frmMain
     End Sub
 
     Private Sub statusVersionLabel_Click(sender As Object, e As EventArgs) Handles statusVersionLabel.Click
-        If statusVersionLabel.Tag = "update" Then
-            UpdateToolStripMenuItem_Click(statusVersionLabel, Nothing)
-        End If
+        'If statusVersionLabel.Tag = "update" Then
+        UpdateToolStripMenuItem_Click(sender, Nothing)
+        'End If
     End Sub
 End Class