Visual Basic - DataReport encabezado grupo sin el dataenvironment

' Abro la base de datos COMPANIA para saber la ubicacion del directorio de trabajoCompania.Conexion.OpenDim RstCompania As ADODB.RecordsetSet RstCompania = Compania.Conexion.Execute("SELECT * FROM Compania")nCRutaDat = RstCompania!CRutaDatCompania.Conexion.Close' Ya sabiendo el directorio de trabajo, procedemos a abrir la base de datosSet SiExport = New ADODB.ConnectionSiExport.Provider = "Microsoft.Jet.OLEDB.4.0"SiExport.ConnectionString = "User ID=Admin;Data Source="