Volevo fare una piccola correzione al codice, in quanto ho personalmente perso molto tempo a capire dove stava l'errore.
Il metodo ImportRow eredita il DataRowState della tabella sorgente,
pertanto se dopo si tenta di fare dataAdapter.Update , non si ottiene nulla,
perche' lo stato e' unchanged.
Aggingendo invece nr.SetAdded(), si riesce a copiare tutta la tabella
nel nuovo dataAdapter
-----------------------------------
Sub Page_Load()
' ... resto del codice

Dim nr As DataRow ' <- row sorgente

Dim dt as DataTable ' <- tabella destinazione
Dim st as DataTable ' <- tabella sorgente

dt = ds.Tables("nomatabella") ' <- prendiamo una tabella da un Dataset
st = ds.Tables("nometabella2") ' <- prendiamo un'altra tabella

For Each nr In st.Rows
nr.SetAdded()
dt.ImportRow(nr)
Next
End Sub
--------------------------------
Saluti