hola amigos estoy haciendo un sistema y en el envio reportes a excel pero quiero enviarle unos titulos a cada fila ¿como hago esto ?ayuda aki les dejo mi codigo

Public Function inicio()

Set conecta = New ADODB.Connection
Set registro = New ADODB.Recordset
Dim fila As Integer
Dim ObjExcel As Object
Dim ObjLibro As Object
Dim ObjHoja As Object
Set ObjExcel = CreateObject("Excel.Application")
Set ObjLibro = ObjExcel.Workbooks.Add '(App.Path & "\calificacion.xls")
Set ObjHoja = ObjExcel.ActiveSheet



conecta.ConnectionString = "DSN=easy"
conecta.Open
registro.ActiveConnection = conecta
registro.CursorType = adOpenDynamic
registro.LockType = adLockOptimistic
nivel = InputBox("ingresa el nivel")
registro.Source = "SELECT * FROM alumnos where nivel='" & nivel & "'"
registrpen
'If fila = 0 Then
' MsgBox "No hay datos para exportar a excel. Se ha indicado 0 en el parámetro Filas "
' Else
'objExcel.Visible = True
Set ObjHoja = ObjExcel.ActiveSheet
'For fila = 1 To fila + 1
While Not registro.EOF
fila = fila + 1

'objExcel.ActiveSheet.Cells(fila, Columna + 0) = registro.Fields!nombre
'objExcel.ActiveSheet.Cells(fila, Columna + 1) = registro.Fields!horario
'objExcel.ActiveSheet.Cells(fila, Columna + 2) = registro.Fields!nivel

ObjHoja.Cells(fila, 1) = registro.Fields!nombre
ObjHoja.Cells(fila, 2) = registro.Fields!horario
ObjHoja.Cells(fila, 3) = registro.Fields!nivel
registro.MoveNext
'fila = fila + 1
Wend
'Next fila
ObjExcel.Visible = True
'End If
End Function