‘函數(shù)名稱: strReplace(Str)
‘函數(shù)功能: 過(guò)濾單引號(hào)
‘參數(shù)說(shuō)明: Str 
‘********************************************
Function strReplace(Str)
 dim tempcheckstr
 tempcheckstr=Str
 If Isnull(tempcheckstr) Then
  strReplace = “”
  Exit Function
 End If
 strReplace = Replace(tempcheckstr,”‘”,”””)
End Function