conexão com excel

Bom dia, galera estou com erro na minha conexão com xls, tenho esse script

Dim cnnExel
pasta = "\tempimport\"
Sub ConectaExcel(pasta)
cnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& pasta & ";Extended Properties=""Excel 8.0;HDR=NO;"""
Set cnnExel = server.CreateObject("ADODB.CONNECTION")
cnnExel.open cnnStr
End Sub
Está conexão funciona perfeitamente, só q dependendo do formato do arquivo ele dá um erro na conexão ...

erro: Microsoft JET Database Engine erro '80004005'

A tabela externa não está no formato esperado.

/admin/bases/xls.asp, line 8

Como eu faço um tratamento de erro, para q quando o erro existir exibir uma mensagem ... Algo do tipo

if err<>0 then
response.write "Tipo de Aquivo Inválido"
end if