Visual Basic - Ayuda con MsChart

Buenas tardes Desarrolladores Necesito de sus ayudas

no me carga el recorset en un Mschart (Se desaparece el grafico)

este es el codigo

cnn.Open

sql = "SELECT Alumno, sum(Docente) as [Total Docentes], sum(TArquitectura) as [Total TArquitectura] From Tesis Where IdTesis='D' Group By Alumno Having ((sum(Docente)>0) and (sum(TArquitectura)>0))"

rst.Open sql, cnn, adOpenStatic, adLockReadOnly

Set MSChart1.DataSource = rst

cnn.Close

Ayuda por favor Urgente...

Espero me ayuden Gracias a todos...