Disculpa no habia leído bien el post, lo quieres por codigo no se puede debido a que solamente con el control ADODC se puede realizar, esto es de acuerdo a la ayuda de VB que dice:
Utilice la instrucción Set para establecer la propiedad DataSource, como se indica a continuación:
Set Text1.DataSource = ADODC1 'SI SE PUEDE
Nota: Es posible usar como orígenes de datos dos controles antiguos, el control Data y el control RemoteData, sin embargo no puede establecer la propiedad DataSource de otro control u objeto a ninguno de estos controles en tiempo de ejecución. Por ejemplo, el código siguiente no funcionará:
Set Text1.DataSource = Data1 '¡Fallará! No puede establecer DataSource
' a un control Data intrínseco en tiempo
' de ejecución.
Para usar el control Data o el control RemoteData como origen de datos, puede establecer la propiedad DataSource de los controles enlazados tan sólo en tiempo de diseño.
Asi que tendrías que cambiar de control...si lo quieres en tiempo de ejecución.