error beckup

[kdhlinha 0]

Salve

 

Nesse codigo de beckup ele ta dando um erro ao fechar uma aplicação

mas eu naum sei pq da esse erro

 

Erro que da

Run-Time '91'

Object variable or With block variable not set

 

Meu codigo

[/code]

Option Explicit

Dim oExcel As Object

Dim objExlSht As Object

Dim db As Database

Dim Sn As Recordset ' Recordset do tipo Snapshot

 

Private Type ExlCell

row As Long

col As Long

End Type

 

Private Sub cmdSair_Click()

objExlSht.Application.QuitSet ---->>>EH NESTA LINHA QUE DA O ERRO

Set objExlSht = Nothing

' remove a variavelobjeto

Set oExcel = Nothing

' remove a variavel objeto

Set Sn = Nothing ' reomove a variavel objeto

Set db = Nothing ' reomove a variavel objeto

End Sub

[kdhlinha 0]

LuizgrsMAs acontece quie eu ja SETei a variavel que da erro e continua dando erro!!Eu to fazendo um sistema de beckup!!!e o erro ta dando quando eu clico no botão sair