VB6 : Error in Insert Query.

When i used this query in vb then error occur plz tell me what i do now.

text1.text = 4
text2.text = “Aamir’s & sons co.”

Insert into suppliers ( supplierid, companyname) values (‘” & text1.text & “‘, ‘” & text2.text & “‘)”

Error Message : Incorrect syntax near ‘s’