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() & "'); SELECT LAST_INSERT_ID()", Cn)
                Try
                    RowLine = Cmd.ExecuteNonQuery()
                    If RowLine = -1 Then
                        MsgBox("Unbekannter Fehler." & vbCrLf & vbCrLf & "Beim" & _
                          "Versuch die Länge des Brückendecks zu speichern trat" & _
                          "ein unbekannter Fehler auf. Die Daten können unter" & _
                          "Umständen fälschlich oder gar nicht geändert worden" & _
                          "sein. Brückendeck ID = " & GeoInst.BrDeckID.Text, _
                          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("LAST_INSERT_ID()")
                NewID = Cmd.ExecuteScalar()
 
 
                Dr.Close()
                Cn.Close()