'GLOBALES----------------------------------------------------------------------
' --------------------------------
    Public gmyDBconnection As OleDbConnection
    Public gdaAdapter As OleDbDataAdapter
    Public gdbcsbStringbauer As New OleDbConnectionStringBuilder
    Public gdtTabelle As DataTable
 
    'Konstanten
    Public Const gstrProvider As String = "Microsoft.jet.oledb.4.0"
    Public Const gstrDB As String = "Sequence.mdb"
    'SQL-Befehle als Strings
    Public Const gsqlDeleteAll As String = "DELETE * FROM "
    Public Const gstrSelectAll As String = "SELECT * FROM "
 
'PROGRAMMCODE 
' :----------------------------------------------------------------------------
' ---------------
Friend Function SaveNewStep(ByVal Steppi As myStep) As Boolean
        'String "zusammenbauen"
        gdbcsbStringbauer.DataSource = Application.StartupPath + "\" + gstrDB
        gdbcsbStringbauer.Provider = gstrProvider
 
        'Verbindung aufbauen
        Try
            gmyDBconnection = New OleDbConnection( _
              gdbcsbStringbauer.ConnectionString)
            gmyDBconnection.Open()
 
            gdaAdapter = New OleDbDataAdapter(gstrSelectAll + "Step", _
              gmyDBconnection)
 
            'Tabelle mit Ergebnissen füllen
            gdtTabelle = New DataTable
            gdaAdapter.Fill(gdtTabelle)
 
            'Tabelle um eine Row erweitern
            Dim dtRow As DataRow
            dtRow = gdtTabelle.NewRow
            dtRow("Name") = Steppi.strName
            gdtTabelle.Rows.Add(dtRow)
 
            'Tabelle um die jeweiligen Spalten erweitern und füllen
            For i As Integer = 1 To Steppi.intInport.Length - 1
                gdtTabelle.Columns.Add("Inport" + CStr(i))
                gdtTabelle.Rows(0).Item("Inport" + CStr(i)) = CStr( _
                  Steppi.intInport(i - 1))
            Next
 
            For i As Integer = 1 To Steppi.intOutport.Length - 1
                gdtTabelle.Columns.Add("Outport" + CStr(i))
                gdtTabelle.Rows(0).Item("Outport" + CStr(i)) = CStr( _
                  Steppi.intOutport(i - 1))
            Next
 
            Dim cb As New OleDbCommandBuilder(gdaAdapter)
            Dim AnzahlZeilen As Integer = gdaAdapter.Update(gdtTabelle)
 
            'Verbindung schliessen
            gmyDBconnection.Close()
            gmyDBconnection.Dispose()
        Catch err As Exception
            MsgBox(err.Message)
            Return False
        End Try
Return True
 
    End Function