Estou tendo um erro na conexão no banco de dados Access. Estou usando o Visual Basic 6 e fiz uma conexão c/ banco mas está dando erro quando faço o set dele é mais ou menos assim:
Public cn_access As New ADODB.Recordset
Public Erro As Boolean
'----------------------------------------------------------
' Auxiliares para emissão de Relatórios
'----------------------------------------------------------
Public caminhoErro_gs$
Public caminhoRel_gs$
Public Enum TIPO_RELATORIO
Relatorio_Proprietario = 1
Relatorio_Inquilino = 2
Relatorio_Imovel = 3
Relatorio_Aluguel = 4
Relatorio_Residencial = 5
Relatorio_Proprietario_Telefone = 6
Relatorio_Inquilino_Telefone = 7
Relatorio_Fiador = 8
Relatorio_Fiador_Conjuge = 9
End Enum
Public Sub AbrirConexaoAccess()
'--- abrir conexao com ACCESS (scido_aux.mdb) ---
On Error GoTo Erro
If cn_access Is Nothing Then
Set cn_access = New Connection 'O erro é aqui
End If
If cn_access.State = ObjectStateEnum.adStateClosed Then
' cn_access.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:ImobiliariaImobiliaria.mdb;"
cn_access.Open
End If
Exit Sub
Err
MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf _
& "Não foi possível estabelecer a conexão" _
& vbCrLf & "para inicialização de arquivos" _
& vbCrLf & "a aplicação será finalizada", vbCritical, "Conectando-se ao Db. Temporário"
End
End Sub
Public Sub FecharConexaoAccess()
On Error GoTo Erro
If Not cn_access Is Nothing Then
If cn_access.State = ObjectStateEnum.adStateOpen Then
cn_access.Close
Set cn_access = Nothing
End If
End If
Exit Sub
Err
MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf _
& "Não foi possível estabelecer a conexão" & vbCrLf _
& "para inicialização de arquivos" _
& vbCrLf & "a aplicação será finalizada", vbCritical, "Conectando-se ao Db. Temporário"
End
End Sub
ele dá a seguinte mensagem:
Compile error:
Invalid use of New keyword
O que deve ser isso? Alguém pode me dá um HELP?!!!
OBRIGADO!!
