Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim connstr, rss, rsw As String
connstr = "provider=msdaora;Persist Security Info=True;data source=tsdclt;user id=exav;password=exavpwd;"
Set cn = New ADODB.Connection
cn.Open connstr
win2000下报错：：：tns:无法处理服务名。
但在98下运行通过。
