Variable in SQL-Anweisung unter VB6

Dim sql$
 Set rs = New Recordset
 On Error GoTo sqlErr
 sql = "select * from personen where vorname = "text2.text""  
' Speichern in der Registry:  
 SaveSetting App.Title, "Optionen", "sql", sql  
  
 rs.Open sql, conn, adOpenStatic, adLockOptimistic
 Set DataGrid1.DataSource = rs
 Exit Sub
sqlErr:
 Err.Raise Err.Number, , Err.Description  ' hier erfolgt Fehlerbeschreibung und Programmabbruch!  
 'Resume Next hier zwecklos!  

sql = "select * from personen where vorname = "text2.text""