VB 6 Select Statement problem with single cote within a string under single cote

See more:

VB6

VB

Hi i am using Data object in VB6 with ms access
error massage : run-time error 3075
code :
Set db = OpenDatabase(App.Path & "\db.mdb")

Dim snrs As Recordset
Set snrs = db.OpenRecordset("select * from [entry] where [NAME]= '" & Me.txtname.Text & "'")

"select * from [entry] where [NAME]= '" & Me.txtname.Text & "'"

now its working fine when no Single cote on Me.txtname.Text

for example if the name is a.b or a.c cba what ever except like ab's or bc's actually the quarry is becoming like

"select * from [entry] where [NAME]= '" & bc's & "'"

"select * from [entry] where [NAME]= 'bc's'" : now this is causing an error

is their any solution for this please suggest me alternatives