bueno nada mas que prueba y error me dia a la tarea aplicar tu codigo auna mini app. y me dicuenta a casi a simple vista que no habia puesto mucha atencion a la manera que declarbas la conexion con los textos.
para conectar un texto lo haces de esta manera
Código:
Set Text23.DataSource = Adodc2
Text23.DataField = "ESTADO"
nos vemos espero te sirva..