在使用ADODB流将二进制数据转换为字符串时，可以按照以下步骤进行操作：

1. 创建ADODB.Stream对象：

Dim objStream As Object
Set objStream = CreateObject("ADODB.Stream")

2. 设置流对象为二进制模式：

objStream.Type = 1 'adTypeBinary

3. 打开流对象：

objStream.Open

4. 将二进制数据写入流对象：

objStream.Write binaryData

其中，binaryData表示要转换的二进制数据。

5. 将流对象内容转换为字符串：

Dim strData As String
strData = objStream.ReadText

6. 关闭流对象：

objStream.Close

下面是一个完整的示例代码，将二进制数据转换为字符串：

Sub BinaryToString()
    Dim binaryData() As Byte
    binaryData = GetBinaryData() '获取二进制数据
    
    Dim objStream As Object
    Set objStream = CreateObject("ADODB.Stream")
    
    objStream.Type = 1 'adTypeBinary
    objStream.Open
    objStream.Write binaryData
    
    Dim strData As String
    strData = objStream.ReadText
    
    objStream.Close
    
    MsgBox strData
End Sub

Function GetBinaryData() As Byte()
    '在这里获取二进制数据，例如从文件或数据库中读取
    '这里只做示例，将字符串转换为二进制数据
    Dim strData As String
    strData = "Hello, World!"
    
    Dim objStream As Object
    Set objStream = CreateObject("ADODB.Stream")
    
    objStream.Type = 2 'adTypeText
    objStream.Charset = "UTF-8"
    objStream.Open
    objStream.WriteText strData
    
    objStream.Position = 0
    objStream.Type = 1 'adTypeBinary
    GetBinaryData = objStream.Read
    
    objStream.Close
End Function

以上示例代码中，GetBinaryData函数模拟获取二进制数据的过程，实际应用中可以根据具体情况进行修改。在BinaryToString过程中，将获取到的二进制数据写入ADODB流对象，然后将流对象内容转换为字符串，并通过消息框显示出来。