encabezado en un datareport

[Carlitoscl]

Hola amigos resulta que tengo un trabajito de la U, que esta en VB 6 y mysql y tengo que obviamente imprimir algunos reportes, como por ejemplo este:

http://www.4shared.com/photo/zLfi59X...e_medicos.html

el codigo es el siguiente y funciona perfecto:

Private Sub activos()
Set act = New ADODB.Recordset
With act
.ActiveConnection = conecta
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
End With
act.Open "SELECT ide_med,ced_med,concatm,tel_med,especialidades.nom _esp,activo FROM medicos,especialidades WHERE medicos.cod_esp=especialidades.cod_esp AND activo='S'"
With rpt_imed
.LeftMargin = 300
.RightMargin = 100
.ReportWidth = 11040
.Sections("Sección1").Controls.Item("Texto1").Data Field = "ide_med"
.Sections("Sección1").Controls.Item("Texto2").Data Field = "ced_med"
.Sections("Sección1").Controls.Item("Texto3").Data Field = "concatm"
.Sections("Sección1").Controls.Item("Texto4").Data Field = "tel_med"
.Sections("Sección1").Controls.Item("Texto5").Data Field = "nom_esp"
.Sections("Sección1").Controls.Item("Texto6").Data Field = "activo"
Set .DataSource = act
.Show vbModal
If act.State = adStateOpen Then act.Close
Set act = Nothing
End With
End Sub

pero resulta que tengo que poner como encabezado los datos de la empresa que adquiera el SW. Los datos de la empresa estan guardados en una tabla independiente y tienes los campos
-nit_emp
-nom_emp
-dir_emp
-tel_emp
-fax-emp

El problema es que no se en que parte del datareport meterlo o en que parte de este codigo. Les agradeceré su valiosa ayuda

[lokoman]

Hola!
La tabla de Medicos, debe tener un campo que relacione a los medicos con la empresa a las que pertenecen, asi tendras todos los campos que necesites.
ej.
en la tabla de Medicos debes tener: ide_med, ced_med, nit_emp, etc (asumo que nit_emp es el codigo de la empresa), entonces en tu select, solo agrega en el FROM la tabla de EMPRESAS y en el WHERE la sentencia AND MEDICOS.NIT_EMP=EMPRESAS.NIT_EMP

Luego en la seccion 3 (creo que esa es la de los encabezados), carga el nombre de la empresa justo como lo haces con los datos.

Verifica y nos cuentas

[Carlitoscl]

gracias amigo Lokoman, pero es que en la seccion 3 no se pueden agregar textbox.
Alguna otra sugerencia?.