У меня была та же проблема, но активировал правильный API. Проблема заключалась в том, что я использовал неправильный файл хранилища ключей при получении моего SHA1. Я использовал хранилище ключей релиза, вместо этого мне нужно было использовать:
keytool -list -v -keystore debug.keystore
для этого файла (местоположение Mac OSX):
~/.android/debug.keystore
Это дало мне еще один sha1, который я ввел в Google консоль, и теперь она работает.
Альтернативный синтаксис для вашего запроса (очиститель IMO):
Dim qry = From lst In cxt.zipcodes _
Select lst.state Distinct _
Order By state
qry = qry.OrderBy(Function(obj) obj.PropertyToSortBy)