求救SQL避免单引号（'）出错的方法

rs1("bgrule") 中有個單引號'，代碼就出錯了，求救，什麼處理啊
文本中有單引號',是常見的事，比如品牌啊、或其它手工輸入的文本，怎樣在用sql的避免出錯？

         If InStr(1, rs1("bgrule"), "''", 1) > 0 Then
            l = InStr(1, rs1("bgrule"), "''", 1)
            rs1("bgrule") = Left(rs1("bgrule"), l - 1) & Mid(rs1("bgrule"), l + 1)
         End If
         str = "SELECT mout_訂單成品規格碼.* "
         str = str & "FROM mout_訂單成品規格碼 "
         str = str & "WHERE (((mout_訂單成品規格碼.bgmodl)='" & rs("型號") & "') "
         str = str & "AND ((mout_訂單成品規格碼.bgrule)='" & rs1("bgrule") & "'));"
         Set rs3 = CurrentDb.OpenRecordset(str, dbOpenDynaset, dbSeeChanges)