vb 中如何把从数据库读出来的图片文件传输到远程计算机

vb 中怎么把从数据库读出来的图片文件传输到远程计算机
高手请帮下忙  
vb中怎么把从数据库读出来的图片文件传输到远程计算机   我是用WINSOCK   传输的，传在硬盘上的文件可以，但是传从数据库读出来的   .Fields   就不可以希望大家指导下   谢谢

------解决方案--------------------
http://www.infosecurity.org.cn/article/pki/cryptography/23293.html
------解决方案--------------------
用你注冊的郵箱
會發密碼到你的郵箱的
------解决方案--------------------
Private Sub Command1_Click()

Dim InterID As String
Dim strData As String
Dim fileNo As Integer
Dim LenF As Long
Dim BMPData() As Byte
Dim mFileName As String
'先保存图片
mFileName = "d:\800.jpg "
dg1.ShowOpen
If dg1.FileName <> " " Then
ig.Picture = LoadPicture(dg1.FileName)
' Picture1.Picture = LoadPicture(dg1.FileName)
SavePicture ig, mFileName
fileNo = FreeFile()
'打开文件取出图形数据
Open mFileName For Binary As #fileNo
LenF = LOF(fileNo)
ReDim BMPData(LenF)
Get #fileNo, , BMPData
Close #fileNo
'保存到数据库中
With rs
.ActiveConnection = cn
.LockType = adLockOptimistic
.Open "delete from wcs "
.Open "select img from wcs "
.AddNew
'字段FID为一个 int 型的主键
'字段FData为一个image 型的字段
' .Fields( "FID ") = InterID
.Fields( "img ").AppendChunk BMPData
.Update
End With
MsgBox "保存完毕 "

rs.Close
Set rs = Nothing
End If
End Sub

把图片保存到 数据库的img类型字段。用的时候 读出 保存到 本地再 loadpicture()