VB 6 - RUN TIME ERROR 91

Set Cn = New ADODB.Connection

  Option Explicit

Global Cn As ADODB.Connection
Global rs As ADODB.Recordset


Private Sub Main()
Dim strArquivo As String
Dim strLocal As String
Dim ConectaAccess As String

Load frmautomacao
frmautomacao.Show
DoEvents
Set Cn = New ADODB.Connection
Set rs = New ADODB.Recordset

strArquivo = [Ô]c:\autocasa\automacaocasa.mdb[Ô]
strLocal = App.Path
Set Cn = CreateObject([Ô]ADODB.Connection[Ô])
ConectaAccess = [Ô]Driver={Microsoft Access Driver (*.mdb)};[Ô] & _
[Ô]Dbq=[Ô] & strArquivo & [Ô];[Ô] & _
[Ô]DefaultDir=[Ô] & strLocal & [Ô];[Ô] & _
[Ô]Uid=Administrador;Pwd=xxxxx;[Ô]

Cn.Open ConectaAccess
End Sub 

Public Function gravarconsumo2(ByVal strequipamento As String, _
strdataon As String, _
strdataoff As String, _
strhoraon As String, _
strhoraoff As String, _
strconsumo As String, _
strtempoligado As String) As Variant

Cn.Execute ([Ô]insert into consumo(equipamento,data_on, data_off, hora_on, hora_off, consumo, tempo_ligado)[Ô] _
& [Ô]values([ô][Ô] & strequipamento & [Ô][ô],#[Ô] & strdataon & [Ô]#,#[Ô] & strdataoff & [Ô]#,#[Ô] & strhoraon & [Ô]#,#[Ô] & strhoraoff & [Ô]#,[ô][Ô] & strconsumo & [Ô][ô],[ô][Ô] & strtempoligado & [Ô][ô])[Ô])

gravarconsumo2 = True

End Function