string ls_select
string ls_where
string ls_dwsyntax
string ls_err

ls_select = &
  "Select id, fname, lname, address, city, state, zip from customer"
ls_where  = " where customer.fname like '" + is_cust + "%'"
ls_dwsyntax = SQLCA.SyntaxFromSQL ( ls_select, "Style(Type=grid)", ls_err )
dw_1.Create ( ls_dwsyntax, ls_err )
IF ls_err <> '' THEN
   MessageBox ( "error - Syntax", ls_err )
ELSE
   dw_1.SetTransObject ( SQLCA )
   dw_1.Retrieve()
END IF