用正则表达式实现对文章内容的查找

dim sqlFo as String="select top 1 * from news where focusnews=true order by newsid desc"
dim mycmdFo as oledbcommand=new oledbcommand(sqlFo,myconn)
dim myreaderFo as oledbdatareader=mycmdFo.executereader()
if myreaderFo.read() then
dim HotContentFo as String =myreaderFo.item("Content")   //赋值需读取的内容
dim HotURLFo as String    //存储读取内容
Dim rFo As New Regex("/d{18}.(jpg|gif)")  //定义正则表达式
Dim mFo As Match = rFo.Match(HotContentFo)    //将正则表达式与内容匹配
If mFo.Success Then
HotURLFo=mFo.Value
End If