Visual Basic - Exportar datos a Excel

' En el codigo del Boton  o llamada exportar.

RstoXls ("aqui va el select que armaste" , "c:\ReporteArchivo.xls")

'en un modulo tengo lo siguiente 

Sub RstoXls(SQL As String, filename As String)

On Error GoTo etterro

cont = 0

'MsgBox SQL

rs.Open SQL, enlace

'****si no hay resultados ********

    If rs.EOF = True And rs.BOF = True Then

            Open filename For Append As 9

                    Print #9, "No Existen Registros para Exportar"

            Close 9

    rs.Close

    Exit Sub

    End If

'salgo del sub

'**********************************

Dim i, j, k As Integer

   j = 0

   While j < Val(rs.Fields.Count)

        Datafile = Datafile & rs.Fields(j).Name & vbTab

        j = j + 1

   Wend

        Open filename For Append As 9

             Print #9, Datafile

             Datafile = ""

        Close 9

    i = 1

    k = 0

    While Not rs.EOF

        i = i + 1

        k = 0

        While k < j

            Datafile = Datafile & Replace(rs(k), vbLf, "", 1) & vbTab

            k = k + 1

        Wend

        'Datafile = Datafile & vbCr

                    Open filename For Append As 9

                        Print #9, Datafile

                        Datafile = ""

                    Close 9

        RaR = RaR + 1

        rs.MoveNext 'aumenta el contador

    Wend

       rs.Close

etterro:

If Err.Number <> 0 Then grabalog Err.Description

End Sub