ZooFlow: Administration

GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb

@@ -17,6 +17,8 @@
 
     Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
         Try
+
+
             TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit()
 
             If DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL.GetChanges() IsNot Nothing Then
@@ -51,7 +53,11 @@
 
     Private Sub frmAdmin_SourceSQL_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
-            TBZF_ADMIN_SOURCE_SQLTableAdapter.Fill(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, PrimaryKey)
+            If IsInsert Then
+                TBZF_ADMIN_SOURCE_SQLBindingSource.AddNew()
+            Else
+                TBZF_ADMIN_SOURCE_SQLTableAdapter.Fill(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, PrimaryKey)
+            End If
         Catch ex As Exception
             ShowError(ex)
         End Try