Dim RowLine As Integer
                Dim NewID As Integer
 
                Cn = New SqlConnection(ConnStr)
                Cn.Open()
                Cmd = New SqlCommand("INSERT INTO Bauwerkteil_BTL (BWK_ID," & _
                  "BTA_ID, BTL_NAME, BTL_BESCHREIBUNG) VALUES (" & _
                  GeoInst.BWKID.Text & ", 1, 'BrueckendeckTEST', 'Bauteil" & _
                  "erstellt mit LayoutCreator " & _
                  System.Diagnostics.FileVersionInfo.GetVersionInfo( _
                  System.Reflection.Assembly.GetExecutingAssembly.Location).Fil_
                  eVersion() & "')", Cn)
                Try
                    RowLine = Cmd.ExecuteNonQuery()
                    If RowLine = -1 Then
                        MsgBox("Unbekannter Fehler." & vbCrLf & vbCrLf & "Beim" & _
                          "Versuch ein neues  Brückendeck anzulegen trat ein" & _
                          "unbekannter Fehler auf. Die Daten können unter" & _
                          "Umständen fälschlich oder gar nicht gespeichert" & _
                          "worden sein.", MsgBoxStyle.Critical, "Unbekannter" & _
                          "Fehler: Brückendeck")
                    End If
                Catch ex As SqlException
                    If ex.Number = 229 Then
                        MsgBox("Sie haben keine Schreibberechtigung für die" & _
                          "BRIMOS Datenbank!!", MsgBoxStyle.Critical, _
                          "Speichern fehlgeschlagen")
                        Dr.Close()
                        Cn.Close()
                        Exit Function
                    End If
                End Try
 
                Cmd = New SqlCommand("SELECT LAST_INSERT_ID()", Cn)
                Try
                NewID = Cmd.ExecuteScalar()
                Catch ex As SqlException
                    MsgBox(ex.Message)
                End Try
 
                Dr.Close()
                Cn.Close()