Dim str as String
Dim rst as ADODB.RecordSet
set rst=new ADODB.RecordSet
Dim SQL as String
SQL="select 姓名 from 表名 where 姓名='张三'"
rst.Open SQL,Con,1,3
str=rst(0).Value
public class 人生历程 extends Thread{public void run(){while(true){努力,努力,再努力!!;Thread.sleep(0);}}}