Gracias por su ayuda aqui le envio los nombres de las tablas que tengo que utilizar en dicho programa para un instituto colegio alumnos, materias, egresados, pagos, personal administrativo, profesores, malla curricular, sillabus. en el cual hay que mostrar datos y unirlo con visual basic dar reportes imprimir grabar etc.

Hola Kat, mirá este código, envia tu base de datos, o lo que tengas cargados en el select en esos momentos, a un archivo word que tu puedes crear.
------------------------------------------------------------­--------------------------------------
------------------------------------------------------------­--------------------------------------
------------------------------------------------------------­--------------------------------------
Option Explicit
'----------------------
'Código realizado por Elinv
'Desde Bragado, Provincia de Buenos Aires, Rca. Argentina.
'por Luis Pedro Méndez.
'----------------------
'En este caso no se muestra Word, solamente se crea el archivo
'----------------------
Private Sub Command1_Click()
'declaramos variables
Dim filas As Integer, columnas As Integer
'averiguamos el número de registros
filas = Adodc1.Recordset.RecordCount
'lo mismo con la cantidad de campos del select
columnas = Adodc1.Recordset.Fields.Count
'llamamos a la función enviar a word, y le pasamos los datos requeridos
'nombre del control, cantidad de filas y columnas y el nombre y extensión del archivo destino.
worduno Adodc1, filas, columnas, "luis.doc"
End Sub
'función para enviar a word
Sub worduno(control_ado As Adodc, filas As Integer, columnas As Integer, nombre_archivo As String)
'si ocurre un error informamos y salimos
On Error GoTo ErrSub
'inicializamos la aplicación
Dim o_Word As Word.Application
'variable de documento
Dim Documento As Word.Document
'variable de tabla
Dim Parrafo As Table
'llamamos a la aplicación
Set o_Word = New Word.Application
'agregamos un documento nuevo
Set Documento = o_Word.Documents.Add
'creamos la tabla
Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), filas, columnas)
'declaramos variables para recorrer el select
Dim F As Long
Dim C As Integer
'Primero recorremos los registros
For C = 0 To filas - 1
'dentro de cada registro todos los campos y los asignamos a cada celda de la tabla en esa fila
For F = 0 To columnas - 1
Parrafo.Cell(C + 1, F + 1).Range.InsertAfter Adodc1.Recordset.Fields(F)
Next F
'La clausula condicional, es para que al mover al registro
'siguiente no envie un error si es el último registro
If Not control_ado.Recordset.EOF Then
'Si no es el ultimo registro mueve al siguiente
control_ado.Recordset.MoveNext
End If
Next C
'Graba en el path donde se ejecuta el programa con el nombre de archivo enviado
'Si deseara enviarlo a un directorio dentro, puedes incluirlo cuando llamas a la funcion
Documento.SaveAs (App.Path & "\" & nombre_archivo)
'cerramos el documento
Documento.Close
'quitamos la aplicación
o_Word.Application.Quit
'declaramos a nothing todas las variables
Set o_Word = Nothing
Set Documento = Nothing
Set Parrafo = Nothing
Exit Sub
ErrSub:
MsgBox Err.Description, vbCritical
On Error Resume Next
Documento.Close
o_Word.Application.Quit
Set Parrafo = Nothing
Set Documento = Nothing
Set o_Word = Nothing
End Sub

Private Sub Form_Load()
'declaramos variable
Dim base_de_datos
'asignamos el nombre de la base de datos -en este caso alumnos-
base_de_datos = "alumnos.mdb"
With Adodc1
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & base_de_datos & ";Persist Security Info=False"
.CommandType = adCmdText
'buscamos en tres campos de la tabla catedraticos
.RecordSource = "Select id_catedratico, numero_empleado, nombre_completo From catedraticos"
.Refresh
End With
'Lo asignamos al datagrid
'este datagrid lo pusimos para que visualices el resultado, dado que
'en muchos registros, veras como a medida que se envian los datos a Word
'el datagrid va moviendose por el registro que se envia.
Set DataGrid1.DataSource = Adodc1.Recordset
End Sub
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
Agrega al proyecto un ado control, un datagrid control, y una referencia a Microsoft Word
--------------------------------------------------------------------------------------------------
Todo esta debidamente explicado y la función y la organización previa del llamado a la función, lo tenes debidamente graficado y explicado.
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
Un abrazo.

Luis Pedro Méndez.

Dame un día y te estoy mandando el que corresponde a excell