SoloCodigo

Hola, con el siguiente codigo podemos exportar una tabla a Excel en win98, alguien sabe como exportarla a excel pero en Win XP, este proceso me genera un error.  ahí va el codigo

Private Sub CmdCrear_Click()
  If Len(Trim(NomArch)) = 0 Then MsgBox "Escriba el nombre del archivo!": NomArch.SetFocus: Exit Sub

  Dim strExcelFile As String, strWorksheet As String, strDB As String
  Dim strTable As String, objDB As Database
  strExcelFile = LblRuta & NomArch & ".xls"
  strWorksheet = "WorkSheet1"
  strDB = App.Path & "control.mdb"
  strTable = ListTabla.List(ListTabla.ListIndex)
  Set objDB = OpenDatabase(strDB)
  If Dir(strExcelFile) <> "" Then Kill strExcelFile
  objDB.Execute _
  "SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _
  "].[" & strWorksheet & "] FROM " & "[" & strTable & "]"
  objDB.Close
  Set objDB = Nothing
End Sub