Dim data As Byte() = dsFile.Tables(0).Rows(0).Item("Info")
                    Response.ContentType = "application/msword"
                    Response.BinaryWrite(data)
                    Response.End()

Response.ClearContent();
Response.ClearHeaders();
Response.ContentType="application/msword";
Response.BinaryWrite(arrDoc);
Response.Flush();
Response.Close();