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()
            Context.SaveChanges()
        End Using