Delphi Ado EdatabaseError从不同线程连接到访问数据库

Question

我正在尝试使用在单独的线程上创建的tadoconnection打开与访问数据库的连接。打开连接时，data.win.adodb抛出了EdatabaseError“外部异常C06D007F”。我尝试进行搜索，并且只能找到添加呼叫以共同化/求解的示例，并且不确定我的代码还有什么问题。当未在ttask或tthread中执行时，相同的连接代码会成功。

更新：当我用32位编译测试应用程序时，该代码可以工作，但失败的64位失败。我在计算机上安装了32位和64位数据库引擎。我卸载了64位引擎，并用最新一个来自微软，错误消失了。

  const
    ConnectionString: string = 'Provider=Microsoft.ACE.OLEDB.16.0;Data Source="C:\Users\Public\Documents\TestDatabase.mdb"';

  function TMainForm.CreateADOConnection(const AConnectionString: string): TADOConnection;
  begin
    Result := TADOConnection.Create(nil);
    Result.ConnectionString := AConnectionString;
    Result.LoginPrompt := False;
  end;

  procedure TMainForm.CreateDBConnections;
  var
    LTasks: array of ITask;
  begin
    SetLength(LTasks, 2);
  
    LTasks[0] := TTask.Create(procedure
    var
      LConn1: TADOConnection;
    begin
      CoInitialize(nil);
      try
        LConn1 := CreateADOConnection(ConnectionString);
        try
          LConn1.Open;
          LConn1.Close;
        finally
          LConn1.Free;
        end;
      finally
        CoUninitialize;
      end;
    end);

    LTasks[1] := TTask.Create(
    procedure
    var
      LConn2: TADOConnection;
    begin
      CoInitialize(nil);
      try
        LConn2 := CreateADOConnection(ConnectionString);
        try
          LConn2.Open;
          LConn2.Close;
        finally
          LConn2.Free;
        end;
      finally
        CoUninitialize;
      end;
    end);
  
    LTasks[0].Start;
    LTasks[1].Start;
  
    TTask.WaitForAll(LTasks);
  end;