Porque no me hace el select

SQLSETPROP(0,"DispLogin" , 3 )
lnHandle = SQLSTRINGCONNECT(_conectar)
IF lnHandle > 0
IF !EMPTY(this.Value)
strcmd = SQLEXEC(lnHandle,"SELECT código, nombre FROM empresa WHERE código="+"?thisform.text2.value","dtempresa")
ELSE
strcmd = SQLEXEC(lnHandle,"SELECT código, nombre FROM empresa ","dtempresa")
ENDIF
IF strcmd > 0
SELECT dtempresa
INDEX on código TAG código
INDEX on nombre TAG nombre
THISFORM.TEXT3.Value = dtempresa.nombre
SQLDISCONNECT(lnHandle)
ENDIF
ENDIF