备忘mysql---qtp

Dim cmm, strCnn, Rst,returnname

Set cmm = CreateObject("ADODB.command")
'cnn.Open strCnn
Set Rst = CreateObject("ADODB.Recordset")
strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.205.101;DATABASE=tp;USER=tp;PASSWORD=tp;Option=3"
cmm.ActiveConnection=strCnn
sql="select tp_info.nick from "&parameter("table")&"  where tp_info.id='50002' "
cmm.CommandText=sql
Set Rst = cmm.Execute()
parameter("username")=cstr(Rst(0))
returnname = parameter("username")
Set cmm =nothing
Set Rst=nothing