如何用VB语言将文件夹中的图片存到SQL中

怎么用VB语言将文件夹中的图片存到SQL中
汽车到了地衡上自动采集地衡的数据然后，地衡两边的摄象头将车牌号码拍下存到D盘的一个文件夹中，那位高手知道怎么将当时拍的照片放到服务器中的SQL数据库中。

------解决方案--------------------
Private Sub SaveFile() '保存文件到数据库中
On Error Resume Next
Dim Stm As New ADODB.Stream '使用ADODB.Stream来保存/读取文件到数据库
'读取文件到内存(二进制模式)
With Stm
.Type = adTypeBinary
.Open
.LoadFromFile DtFlag
End With
RssW.Fields( "dtwz ") = Stm.Read
RssW.Update
Stm.Close
Set Stm = Nothing
End Sub

Private Sub ReadFile()
On Error Resume Next
Dim Stm As New ADODB.Stream
'保存到文件
With Stm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write RssW( "dtwz ")
.SaveToFile App.Path + "\image.jpg "
End With
DtFlag = App.Path + "\image.jpg "
Stm.Close
Set Stm = Nothing
End Sub
看看这个能不能看明白了