Nelle istruzioni Sql le stringe vanno racchiuse tra gli apici:

StrSql = "Select * from tabella Where campo = 'Pippo'"

Se usi una variabile:

StrSql = "Select * from tabella Where campo = '" & Pippo.Text & "'"