Примерно так должно работать, если я правильно понимаю ваш вопрос.
Dim ef As New EntityConnection(New MetadataWorkspace(New String() {"res://*/"}, New Assembly() {Assembly.GetExecutingAssembly()}), **New SqlConnection("Server=yourserver; user id=yourid;password=yourpassword;Database=yourdb;MultipleActiveResultSets=True"))**
dim ctx as New YourContext(ef)