如何从数据库下载数据流文件（需要弹出打开，保存界面）

 sql = "select FileName,Attach from Attach where ID=" & ID & ""

            ds = SqlHelper.ExecuteDataset(pConnstr, CommandType.Text, sql)

            If ds.Tables(0).Rows.Count > 0 Then

                For i = 0 To ds.Tables(0).Rows.Count - 1

                    SaveFileName = Application.StartupPath + "\Main\Data\" + Now.ToString("yyyyMMdd_HHmmss") + ds.Tables(0).Rows(i).Item("FileName")

                    Dim imgData() As Byte

                    imgData = ds.Tables(0).Rows(0).Item("Attach")

                    Dim fs As FileStream

                    fs = File.Create(SaveFileName, imgData.Length - 1)

                    fs.Write(imgData, 0, imgData.Length - 1)

                    fs.Close()

             Next



            End If

以上是我的下载代码，但是只能下载到固定地址，我想在点击下载的瞬间可以弹出询问保存或者打开的提示窗口，应该怎么写，希望各位大佬给指点下，最好给点代码提示，拜谢。
------解决方案--------------------
不玩VB，但无非是利用response输出流文件方式。mvc的话就更方便了，return File即可