'文字列検索 & 置き換え '例:右から2桁 → 1桁 Dim str As String = strSql.ToString '右から2桁の値が指定した文字だったら処理をする If Strings.Right(str, 2) = "''" Then '文字列置き換え str = strSql.ToString.Replace("''", "'") '一旦代入した文字列変数クリア strSql.Clear() '再度、置き換えした文字列代入 strSql.Append(str) End If