过滤单引号

Function sqlstr(data)
 if data<>"" then
  sqlstr="'" & replace(data,"'","''") & "'"
 else
  sqlstr="'" & "" & "'"
 end if
End Function

请高手指点一下sqlstr后面的代码是什么意思？（replace函数的意思我明白，一长串在一块我就不太明白了。）谢谢！