cmd = New SqlServerCe.SqlCeCommand("SELECT * FROM Gegenstaende_temp where" & _
   "InventarNr ='" & Form1.cboNummer.Text & "'", conn)
        da.SelectCommand = cmd
 
        da.Fill(ds, "Gegenstaende_temp")
        Dim myDataRowsCommandBuilder As SqlCeCommandBuilder = New _
          SqlCeCommandBuilder(da)
 
        With Form1
 
            dr = ds.Tables("Gegenstaende_temp").NewRow
 
            dr("Hersteller") = Trim(.txtHersteller.Text)
            dr("Anschaffungsdatum") = Trim(.txtADatum.Text)
 
            ds.Tables("Gegenstaende_temp").Rows.Add(dr)
 
            ' Update Database with SqlDataAdapter
            da.Update(ds, "Gegenstaende_temp")
 
            da.Dispose()
            ds.Dispose()
        End With