引用 Microsoft ActiveX Data Object 2.5
dim conn as Adodb.connection
.......
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = sp_who
Set rs = cmd.Execute
dim strName as string
strName =rs.fields(0).value
conn.execute(insert into tablename values('" & strName & "'"