当ADODB.Stream的ReadText方法无法正常工作时，可能有以下几种解决方法：

1. 确保文件编码正确：ADODB.Stream的ReadText方法默认使用Unicode编码读取文本文件，如果文件使用其他编码保存（如UTF-8），需要使用ADODB.Stream的Charset属性来指定正确的编码。例如：

Dim stream As New ADODB.Stream
stream.Charset = "utf-8"
stream.Open
stream.LoadFromFile "C:\path\to\file.txt"
Dim text As String
text = stream.ReadText

2. 确保文件路径正确：在使用LoadFromFile方法加载文件之前，确保文件路径是正确的，并且当前用户有权限访问该文件。可以使用绝对路径或相对路径。

3. 确保文件存在：在使用LoadFromFile方法加载文件之前，确保文件存在。可以使用FileSystemObject对象的FileExists方法来检查文件是否存在。例如：

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim filePath As String
filePath = "C:\path\to\file.txt"
If fso.FileExists(filePath) Then
    Dim stream As New ADODB.Stream
    stream.Open
    stream.LoadFromFile filePath
    Dim text As String
    text = stream.ReadText
End If

4. 确保文件已打开：在使用ReadText方法之前，确保ADODB.Stream已经成功打开了文件。可以使用Stream对象的State属性来检查流的状态。例如：

Dim stream As New ADODB.Stream
stream.Open
stream.LoadFromFile "C:\path\to\file.txt"
If stream.State = adStateOpen Then
    Dim text As String
    text = stream.ReadText
End If

如果以上方法仍然无法解决问题，可能是由于其他原因导致ADODB.Stream的ReadText方法无法正常工作。可以尝试使用其他方法或工具来读取文本文件，或者检查代码中是否存在其他错误。