Select causes a problem when a record contains " ' "

[joejoe]

When Selecting a record using the Select Statement it returns an error if the record contains an " ' ".

Ie.

Select * From [Banks] Where [Banks] ='" & Me.Text1.Text & "'"

If the bank was called " John's Bank " the system only reads up to the apostophe. so it searches for "John".

Is there any way around this as it is causing me grief

Thanks