quando dou play no meu userform criado ele dá erro .
Erro em tempo de execução 3024
could not find file (depois coloquei o caminho)
dados que coloquei no modulo.
Public isConected As Boolean
Public conexao As Database
Public Function conectar(opt As Boolean)
If opt = True Then
If isConected Then
Exit Function
End If
Set conexao = OpenDatabase(ActiveWorkbook.Path & "\Db.mdb")
isConected = True
Else
conexao.Close
Set conexao = Nothing
isConected = False
End If
End Function