Я думал, что вы могли бы сделать это с помощью linq, но он всегда выдает ошибку внешнего ключа, и ContactType.id равен 0. Нужно ли вызывать SubmitChanges после вставки нового ContactType, или я что-то упускаю из виду?
Dim ct As New ContactType
ct.name = "supervisor"
db.ContactTypes.InsertOnSubmit(ct)
Dim c As New Contact
c.ContactTypeId = ct.id
c.first_name = "fname"
c.last_name = "lname"
db.contacts.InsertOnSubmit(c)
db.SubmitChanges()