VB讀取sql server的binary圖象和long text文本

    Dim rs As New ADODB.Recordset
    Dim conn As New ADODB.Connection

Private Sub Form_Load()
    conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=1234;Initial Catalog=kepu;Data Source=FOUNDER"
    rs.Open "news", conn, 3, adLockOptimistic, adCmdTable
End Sub

Private Sub Command1_Click()

     Dim StmPic As ADODB.Stream
'     On Error GoTo err
       
        Set rs = conn.Execute("select imgsize,newsid,img from news")
        StrPath = "d:/image"
        Set StmPic = New ADODB.Stream
       
       
        Dim strFilename As String
   
        rs.MoveNext
       
    While Not rs.EOF
       
        If rs.Fields("imgsize") > 0 Then '有圖
            strFilename = StrPath + "/kepu" + Str(rs.Fields("newsid")) + ".jpg"
       
       
            With StmPic
                .Type = adTypeBinary
                .Open
                .Write rs.Fields("img")       '寫入資料庫中的資料至Stream中
                .SaveToFile strFilename, adSaveCreateOverWrite  '將Stream中資料寫入臨時檔案中
                .Close
            End With
       
        Else
       
        End If
        rs.MoveNext
       
       
    Wend
       
        MsgBox "圖片成功匯出"
       
        rs.Close
       
        'Picture2.Picture = LoadPicture(StrPicTemp)  '用Picture控制項顯示映像
    Exit Sub
err:
     MsgBox err.Description

End Sub

Private Sub Command2_Click()
 Dim strContent As ADODB.Stream
'     On Error GoTo err
       
        Set rs = conn.Execute("select newsid,content from news")
        StrPath = "d:/html"
        Set strContent = New ADODB.Stream
       
       
        Dim strFilename As String
   
        rs.MoveNext
       
    While Not rs.EOF
       
            strFilename = StrPath + "/kepu" + Str(rs.Fields("newsid")) + ".htm"
       
       
            With strContent
                .Type = adTypeText
                .Open
               
                .WriteText rs!content   '寫入資料庫中的資料至Stream中
                .SaveToFile strFilename, adSaveCreateOverWrite  '將Stream中資料寫入臨時檔案中
                .Close
                
            End With
       
           rs.MoveNext
       
       
    Wend
       
        MsgBox "內容成功匯出"
       
        rs.Close
       
        'Picture2.Picture = LoadPicture(StrPicTemp)  '用Picture控制項顯示映像
    Exit Sub
err:
     MsgBox err.Description

End Sub