Help inserting sql from access table

Can any one help me ?
I want to run a do while eof of a access datatable and inserting records in a sql table .

Source :

        Dim conn As SqlConnection = Nothing
        Dim trans As SqlTransaction = Nothing
        Dim cmd As SqlCommand

        conn = New SqlConnection(ConfigurationManager.ConnectionStrings("CPCnet").ConnectionString)
        conn.Open()

        trans = conn.BeginTransaction

        cmd = New SqlCommand()
        cmd.Connection = conn
        cmd.Transaction = trans

        cmd.CommandText = "INSERT INTO LOja_produtos(cod_inex ) " & _
                     "VALUES (@cod_inex); SELECT SCOPE_IDENTITY()"

        Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cpcnet.mdb") & ";"
        Dim rs
        rs = Server.CreateObject("ADODB.Recordset")

        rs.open("Select stk_code,STK_Name, STK_PRICE_A, STK_CATEGORY, STK_WEB_DESC, STK_GIF_FILENAME, STK_keywords,STK_Ficheiro_Caracteristicas,STK_Marca,STK_PRAZO_ENTREGA from FStock", strConn)

        Dim visivel, portes, cod_inex, garantia, Nome, preco, categoria_id, descricao, imagem, ficheiro_caracteristicas, keywords, fabricantes, prazo_entrega

        visivel = "T"
        portes = "1"
        garantia = "2"

        rs.movefirst()

        Do While Not rs.eof
            cod_inex = rs("stk_code").value()


            cmd.Parameters.AddWithValue("@cod_inex", cod_inex)

            cmd.ExecuteNonQuery()

            rs.movenext()
        Loop