WITH This .oleTreeview.ImageList = .oleImagesList FOR lnCnt = 65 TO 90 .oleTreeview.Nodes.Add(,,CHR(lnCnt),CHR(lnCnt),"Closed","Open") DO WHILE ALLTRIM(LEFT(CustView.LName,1)) = CHR(lnCnt) * lcKey = ALLTRIM(CustView.CustId) * The above line will give an error and the below does not lcKey = ALLTRIM(CustView.CustId)+'A' lcText = ALLTRIM(CustView.LName) .oleTreeview.Nodes.Add(CHR(lnCnt),4 ,lcKey, lcText) SKIP ENDDO ENDFOR ENDWITHThanks