Dim con As New SQLConnect
        Dim RamonTemp As New DataSet
        Dim ds As New DataSet
        con.Tabelle_in_Dataset(RamonTemp, "Baeder", "Select  * from Ramon_Bad ")
 
        ' Es wurde nun eine Tabelle in das Dataset Ramon_Temp geladen
 
        ' Es wird nun ein Clone der im Datset RamonTemp liegenden tabelle 
        ' erzeugt, um diese an ein weiteres DataAdapter zu binden
 
        Dim dt As DataTable
        dt = New DataTable
        dt = RamonTemp.Tables("Baeder").Clone
        dt.TableName = "sampletable"
 
        ds.Tables.Add(dt)
 
        Dim Conn As New SqlServerCe.SqlCeConnection
 
        Conn.ConnectionString = connstr
        Conn.Open()
 
        Dim da As SqlServerCe.SqlCeDataAdapter
        da = New SqlServerCe.SqlCeDataAdapter("select * from sampletable", Conn)
        da.FillSchema(ds, SchemaType.Mapped, "sampletable")
 
        Dim cb As SqlServerCe.SqlCeCommandBuilder
        cb = New SqlServerCe.SqlCeCommandBuilder(da)
        da.MissingMappingAction = MissingMappingAction.Passthrough
 
        da.InsertCommand = cb.GetInsertCommand()
 
        da.Update(ds, "sampletable")
        da.Dispose()