Cria uma ODBC: vai em painel de controle, ferramentas administrativa, fonte de dados odbc, botão adicionar, clica duas vezes em microsoft (accesses.mdb) digita o nome em descrição EX: Ponto ,depois clique no botão selecionar, e localiza o mdb, assim que localizou clique ok, ok.
Sub Abre_Conexao()
On Error GoTo rErro
Set conn1 = New ADODB.Connection
conn1.ConnectionString = "DSN=Ponto;UID="
conn1.Open
Exit Sub
rErro:
MsgBox "Problemas na conexão de dados: " & Chr(13) & _
"tente novamente e, caso o problema persista, " & Chr(13) & _
"contate o Fabricante ", 16, "Erro " & Err
End
end sub
