Acesso a dados Com DAO

[Luiz Gehlen 0]

Ola, Gostaria de saber onde errei, e qual a correção, os diretorios estão corretos e as tabelas tambem.

 

Public Sub Abre()
Set AFolha = DBEngine.Workspaces(0)
On Error GoTo ErroAoAbrir
AFolha.BeginTrans
Set BFolha = AFolha.OpenDatabase("C:\Livro\Folha.mdb", False)
Set Tfuncionarios = BFolha.OpenRecordset("Tfuncionarios", dbOpenDynaset)
Tfuncionarios.Sort = "Codigo"
Set TbFuncionario = Tfuncionarios.OpenRecordset()
AFolha.CommitTrans
On Error GoTo 0
Exit Sub
ErroAoAbrir:
Dim Aviso As Integer
Aviso = MsgBox("Erro ao Acessar o Banco De Dados.", vbCritical, "Aviso!")
If Aviso = vbOK Then
AFolha.Rollback
On Error GoTo 0
Exit Sub
End If
Resume
End Sub

[scorpio 7]

Gostaria de saber qual erro deu.

 

Mude sua mensagem de erro para:

MsgBox("Erro ao Acessar o Banco De Dados." & vbCrLf & Err.Description, vbCritical, "Aviso!")