Problema ao Exportar para Excel

[vpess 0]

Boa noite,

Estou com um pequeno problema ao exportar uns dados para excel. Acontece que a primeira vez que exporto não dá problemas, se voltar a carregar no botao para exportar dá-me a seguinte mensagem:

O código:

Private Sub Command8_Click()
conexao
procura = Trim(CStr(servico.Text))

    Dim oApp As Excel.Application
    Dim oWB As Excel.Workbook
    
    'Create an Excel instalce.
    Set oApp = New Excel.Application
    'Open the desired workbook
    Set oWB = oApp.Workbooks.Open(FileName:="C:\teste\baixameo.xls")
    'Do any modifications to the workbook.
    SQL = "select * from ot where servico='" + procura + "' ORDER BY servico asc"
    rs.Open SQL, conn, 1, 3

    oApp.Application.Visible = True

    a = "A"
    b = "B"
    c = "C"
    d = "D"
    Range(b & 9).FormulaR1C1 = "NÃO"
    
    oWB.Application.Quit
    Set oWB = Nothing
    oApp.Application.Quit
    Set oApp = Nothing
    
End Sub