Visual Basic - Dataenvironment!! URGENTE

Hola, TENGO UN PROBLEMA PARA CREAR VISTAS EN UN DATAENIRONMENT , YO TENGO CREADA UN COMANDO EN DONDE LO RELACIONO CON UNA TABLA, AHORA QUIERO DE ESA TABLA CREAR UNA VISTA PARA PODER CARGAR UN COMBO BOX. NO SE COMO CREARLAS Y COMO SE TRABJA CON ELLAS
SI ALGUIEN SABE SE LO AGRADEZCO

yo no seeeee....

Luis: si no sabes no contestes estupideces

Espero que esto te sirva, es como si le modificaras la instruccion sql jerarquica a tu Data Environment.

Private Sub Print_Report()
On Error GoTo err_impre
Dim Listado As ADODB.Command 'Objeto de tipo comando
Dim Entorno As dteINV025 'Nuestro entorno de datos o DataEnvironment
Set Entorno = New dteINV025
Entorno.cnnINV025.Open LoginSystem, UserName, UserLogin
Set Listado = Entorno.Commands("CmdINV025_Grouping")
Listado.CommandType = adCmdText
Listado.CommandText = " SHAPE {SELECT DISTINCT LBYCONTA.CONPF001.MAECTA, LBYCONTA.CONPF001.MAESUB, LBYCONTA.CONPF001.MAESSC, LBYCONTA.CONPF001.MAENOM, LCSSISEGE.NOMPF01.NUMDIR, LCSSISEGE.NOMPF01.NUMSUB, LCSSISEGE.NOMPF01.NUMDEP, LCSSISEGE.NOMPF01.DESCRI FROM LBYCONTA.CONPF001, LCSSISEGE.NOMPF01 WHERE LBYCONTA.CONPF001.MAECTA = LCSSISEGE.NOMPF01.NUMDIR AND (LBYCONTA.CONPF001.MAESUB = LBYCONTA.CONPF001.MAECTA) AND (LBYCONTA.CONPF001.MAECTA > 10) AND (LBYCONTA.CONPF001.MAESSC = 0)} AS cmdINV025 COMPUTE cmdINV025 BY 'MAECTA','MAESUB','MAESSC','MAENOM'"
Load dtrINV025
dtrINV025.Show 1
Exit Sub
err_impre:
MsgBox Err.Number & "-" & Err.Description, vbCritical + vbOKOnly, "Error al Intentar Imprimir"
Err.Clear
End Sub