I did this in similar case yesterday, hope you see the relation:
Code:
Dim arow As DBDataSet.ArtistRow = CType(CType(Me.ArtistBindingSource.Current, DataRowView).Row, DBDataSet.ArtistRow)
Me.DBDataSet.CD.AddCDRow(album, ur, arow, CShort(Date.Now.Year))