Dim conn As String = My.Settings.Connstring
 
Using Context As New DB_Entities
      Context.Connection.ConnectionString = conn
 
      If Context.DatabaseExists Then
             Context.DeleteDatabase()
      End If
 
      Context.CreateDatabase
End Using