como pasar datos de .net a plantilla .xls

[Princesa27]

Hola tengo una pregunta y es la siguiente necesito saber como pasar mis datos por programa en visual a una plantilla de .xls

tengo el siguiente codigo y lo hace algunos campos no guardan el campo asi que necesito una mejor idea.
gracias de antemano,


Private Sub Imprime()
Dim s_SQL As String
Dim Rs_Sp As New ADODB.Recordset
Dim Moneda As String
Abredb()

Dim m_Excel As Microsoft.Office.Interop.Excel.Application
Dim strRutaExcel As String

strRutaExcel = "C:\PlantillaparaRequisicion2011.xls"

m_Excel = CreateObject("Excel.application")
m_Excel.Workbooks.Open(strRutaExcel)
m_Excel.Visible = False

s_SQL = "Select a.*, b.*, c.* from tb_Proveedor a, tb_Requerimiento b, tb_Altamaterial c where a.NoSerial = b.NoSerial and b.NoSerial = c.NoSerial order by a.NoSerial desc"
Rs_Sp = DB_cn.Execute(s_SQL)

If Not Rs_Sp.EOF Then
Rs_Sp.MoveFirst()
m_Excel.Worksheets("Paola").cells(6, 2).value = Rs_Sp.Fields("NameProveedor").Value 'Nombre del Proveedor
m_Excel.Worksheets("Paola").cells(7, 2).value = Rs_Sp.Fields("Address").Value 'Direccion
m_Excel.Worksheets("Paola").cells(8, 2).value = Rs_Sp.Fields("Ciudad").Value 'Ciudad
m_Excel.Worksheets("Paola").cells(8, 4).value = Rs_Sp.Fields("Estado").Value 'Estado
m_Excel.Worksheets("Paola").cells(8, 6).value = Rs_Sp.Fields("CP").Value 'Cp
m_Excel.Worksheets("Paola").cells(9, 2).value = Rs_Sp.Fields("Contacto").Value 'Contacto
m_Excel.Worksheets("Paola").cells(10, 2).value = Rs_Sp.Fields("Telefono").Value 'Telefono
m_Excel.Worksheets("Paola").cells(10, 5).value = Rs_Sp.Fields("Fax").Value 'Fax
m_Excel.Worksheets("Paola").cells(12, 2).value = Rs_Sp.Fields("Proposito").Value 'Proposito
m_Excel.Worksheets("Paola").cells(6, 8).value = Rs_Sp.Fields("Requeridopor").Value 'Requerido por
m_Excel.Worksheets("Paola").cells(7, 8).value = Rs_Sp.Fields("Datepreparacion").Value 'Fecha de Preparacion
m_Excel.Worksheets("Paola").cells(7, 10).value = Rs_Sp.Fields("Daterequerida").Value 'Fecha Requerida
m_Excel.Worksheets("Paola").cells(10, 8).value = Rs_Sp.Fields("NumProyecto").Value 'No. de Proyecto
m_Excel.Worksheets("Paola").cells(10, 9).value = Rs_Sp.Fields("NumCuenta").Value 'No. de Cuenta
m_Excel.Worksheets("Paola").cells(10, 11).value = Rs_Sp.Fields("Departamento").Value 'Departamento
m_Excel.Worksheets("Paola").cells(16, 2).value = Rs_Sp.Fields("Cantidad").Value 'Cantidad
m_Excel.Worksheets("Paola").cells(16, 3).value = Rs_Sp.Fields("NoParte").Value 'No de Parte
m_Excel.Worksheets("Paola").cells(16, 6).value = Rs_Sp.Fields("Descripcion").Value 'Descripcion
m_Excel.Worksheets("Paola").cells(16, 10).value = Rs_Sp.Fields("PUnitario").Value 'PU
m_Excel.Worksheets("Paola").cells(16, 11).value = Rs_Sp.Fields("Total").Value 'Total
m_Excel.Worksheets("Paola").cells(24, 11).value = Rs_Sp.Fields("Subtotal").Value 'Subtotal
m_Excel.Worksheets("Paola").cells(25, 11).value = Rs_Sp.Fields("Tax").Value 'Tax
m_Excel.Worksheets("Paola").cells(26, 11).value = Rs_Sp.Fields("Ttotal").Value 'Total
m_Excel.Worksheets("Paola").cells(26, 3).value = "Ing.Edgar Rodea"
If Rs_Sp.Fields("Pesos").Value Then 'Pesos
Moneda = "X"
m_Excel.Worksheets("Paola").cells(27, 10).value = Moneda
ElseIf Rs_Sp.Fields("Dolares").Value Then 'Dolares
Moneda = "X"
m_Excel.Worksheets("Paola").cells(27, 11).value = Moneda
End If
m_Excel.Worksheets("Paola").cells(27, 3).value = Rs_Sp.Fields("DestFinal").Value

'Guardamos los cambios del libro activo
m_Excel.Application.ActiveWorkbook.Save()
'Nota: Hay una instruccion como esta:
m_Excel.Application.ActiveWorkbook.SaveAs()

'Eliminamos la instancia de Excel de memoria
If Not m_Excel Is Nothing Then
m_Excel.Quit()
m_Excel = Nothing
End If
End If


End Sub