Mostrar los valores seleccionados solo en VB6

Estoy tratando de mostrar a los estudiantes en una cuadrícula de datos que tienen "sí" como activo. Si el estudiante tiene "no" como activo, el formulario tiene que ocultarlo y solo mostrar a los estudiantes con "sí". El problema que estoy recibiendo ahora es

Error de syntax en la cláusula FROM.

código:

Private Sub Form_Load() Dim sql As String connSearch.Open connstr Adodc1.ConnectionString = conn.connstr sql = "select * from Table1 where Active <>" & "'No'" Adodc1.RecordSource = sql Set StudentTable.DataSource = Adodc1 Adodc1.Refresh Adodc1.Visible = False End Sub 

¿Qué es Active ?
Si Active es un tipo de datos Boolean (Sí / No), sus valores opcionales son True o False . En ese caso su consulta es:

 "select * from Table1 where Active <> False" 

Si el tipo de datos Active es String ; son 'no' y 'No' los mismos valores? está mejor convirtiendo todo a mayúsculas o minúsculas:

 "select * from Table1 where Ucase(Active) <> 'NO'" 

Editar: Código modificado

 Dim sql As String sql = "select * from Table1 where [Active] <> 'No'" Adodc1.ConnectionString = conn.connstr Adodc1.CommandType = adCmdText Adodc1.RecordSource = sql Set StudentTable.DataSource = Adodc1 Adodc1.Refresh Adodc1.Visible = False