loop recordset igennem og indsæt i anden tabel

jeg skal have kopieret nogle data fra en tabel til en anden men jeg er desværre næsten totalt lost. jeg tror nok at jeg har fået løst første del med at udtrække nogle af mine data, men hvordan looper jeg så mit recordset igennem og få dem indsat i min nye tabel?

<%@ Page Language="vb" %>
<%@ OutputCache Duration="1" VaryByParam="None" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OracleClient" %>

<Script runat="server">
    Sub Page_Load(sender As Object, e As EventArgs)
        Dim cnn As OracleConnection = New OracleConnection(System.Configuration.ConfigurationSettings.AppSettings("XXXX").ToString)
        Dim adscommand As OracleCommand = cnn.CreateCommand
        adscommand.CommandType = CommandType.Text
        adscommand.CommandText = "SELECT * FROM old_tabel WHERE periode_start > to_date('" & DateTime.Now.ToShortDateString() & "', 'DD-MM-YYYY')"
        Try
            cnn.Open()
        Catch ex As Exception
            Response.Write(ex.Message)
        Finally
            cnn.Close()
        End Try
    End Sub
</Script>