Set con=createobject("adodb.connection")
con.open "DRIVER={Oracle in
OraHome92};SERVER=CESHI;UID=CND_TEST;PWD=CND;DBQ=CESHI;DefaultDir=C:/Program
Files/Common Files/ODBC/Data Sources/cnd_test.dsn;"
Set rs=createobject("adodb.recordset")
sql="select
manualcode,babyname,sex,birthday,nativedetail,fathername,mothername
from chr_bornregister where fathername='"&MyFather&"'"
rs.Open sql,con,1,3