vb.net how to get Select @@Identity
<p>i have this code [Sample 1] and it is working. 
It show me ID for actual inserted data from Access, but I would like to use something like in [Sample 2], but i still don't know find out how to write right code for that. :(</p>

<p>Sample 1 [working]</p>

<pre><code>        Dim query As String = "Insert Into REGISTER (DC,Price) Values (?,?)"
    Dim FindID As String = "Select @@Identity"
    Dim ID As Integer
    Dim connect As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\sourcepath\db.accdb"
    Using conn As New OleDbConnection(connect)
        Using cmd As New OleDbCommand(query, conn)
            conn.Open()
            cmd.Parameters.AddWithValue("", Format(Now, "yy") &amp; Format(DatePart(DateInterval.WeekOfYear, Now), "00"))
            cmd.Parameters.AddWithValue("", PriceTextBox.Text)
            cmd.ExecuteNonQuery()
            cmd.CommandText = FindID
            ID = cmd.ExecuteScalar()
            conn.Close()
        End Using
    End Using
</code></pre>

<p>Sample 2 [here I need help]
This code write data to Access but I can't get the ID.
(Part for get ID isn't in code)</p>

<pre><code>    Dim rw As DataRow
    rw = RegisterDBDataSet.REGISTER.NewRow
    rw.Item("Price") = Format(Now, "dd.MM.yyyy")
    rw.Item("DC") = Format(DatePart(DateInterval.WeekOfYear, Now), "00"))

    Try
        RegisterDBDataSet.REGISTER.Rows.Add(rw)
        REGISTERTableAdapter.Update(RegisterDBDataSet.REGISTER)
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
</code></pre>

<p>what must i put into code for get ID in sample 2?
thanks</p>