Фахрер - это отдельный объект
From d In Database.AutofahrerSet Where d.Unfälle = 0 Select d Order By d.Unfälle Ascending
не дает вам ни одного объекта
Похоже, вы хотите увидеть, существует ли что-то, а затем создать его, если его нет.
Попробуйте что-то вроде этого
Dim myCount as integer = (From d In Database.AutofahrerSet Where d.Unfälle = 0 Select d).Count()
if myCount = 0 then
Fahrer = Autofahrer.CreateAutofahrer(0, "Testfahrer", DateTime.Now, 0)
Database.AutofahrerSet.AddObject(Fahrer)
Database.SaveChanges()
else
Fahrer = (From d In Database.AutofahrerSet Where d.Unfälle = 0 Select d Order By d.Unfälle Ascending).First()
End If