大虾请帮忙（急）

dim cn as new adodb.connection
dim cmd as adodb.command
dim rs as adodb.recordset
  set cn=dbcn(已经打开的连接)
  set cmd=new adodb.command
    cmd.activeconnection=cn
    cmd.cmdtype=adcmdtext
    cmd.commandtext="select * from TAB_Unit Where unitid=001"
    Set rs = Cmd.Execute