Estou criando um novo projeto Access e ao depurar o código da função abaixo, apareceu um erro de "Tipo definido pelo usuário não foi definido"

Nota: Estou utilizando pela primeira vez o Access 2007.

Public Function NovoEvento(ByVal Origem As String, ByVal Data As Date, ByVal Hora As Time, _
ByVal Cidade As Integer, ByVal Endereco As String, ByVal Descricao As String, _
ByVal Equipe As Integer, ByVal Classificacao As Integer) As Boolean

Dim sql As String, Valor As String

Valor = Origem & ","
Valor = Valor & Data & ","
Valor = Valor & Hora & ","
Valor = Valor & Cidade & ","
Valor = Valor & Endereco & ","
Valor = Valor & Descricao & ","
Valor = Valor & Equipe & ","
Valor = Valor & Classificacao

sql = "INSERT INTO T_Eventos (Des_Origem, Dat_Evento, Hor_Evento, Key_Cidade,)"
sql = sql + " End_Evento, Des_Evento, Key_Classificacao, Key_Equipe)"
sql = sql + " VALUES (" & Valor & ")"

Set cnn = CurrentProject.Connection
cnn.Execute sql
NovoEvento = True

End Function

Dois erros:
1)
ByVal Hora As Time, >> ByVal Hora As Date,

Não existe o tipo de dados TIME no access.


2)
Set cnn = CurrentProject.Connection

A variavel cnn não está declarada.

Rogério,

Apenas o tipo de dados, já corrigido, a variavel "cnn", foi declarada para todo o módulo.

Obrigado.