主题：不能提取二进制文件

lsdt=cmd.ExecuteReader()
For Each dr As DataRow In lsdt.DataRows
    Dim bs = dr("文件")
    If bs IsNot Nothing Then
        Dim file = new IO.FileStream(dr("文件名"), IO.FileMode.Create)
        file.Write(bs, 0, bs.Length)
        file.Flush()
        file.Close()
    End If
Next