str="Provider=OraOLEDB.Oracle.1;Password=ihis;Persist Security Info=True;User ID=ihis;Data Source=kthisqa" 
Set Conn = CreateObject("ADODB.Connection" )
Conn.open str
Set Rs = CreateObject ("ADODB.Recordset" )
'sql = "select p.PERSON_ID,p.PERSON_NAME,p.sex,p.BIRTH_DATE from person p where p.PERSON_NAME like 'ZZ%' "
Rs.open sql,conn,1,3 
问题是如果网段内有多台叫kthisqa的oracle的服务器 怎么定位这个source哦? 急等哦