Hi Kevin,

It work perfectly. Thanks for your valuable answer, but some minor mistake,that is:
myDs.Relationships.Add(oRelation)

it should be myDs.Relations.Add(oRelation),but it wouldn't be a problem for all vb user.

Thanks a lot.

NG