Dim Conn,Rec
Set Conn=CreateObject("ADODB.Connection")
Set Rec=CreateObject("ADODB.Recordset")
Conn.open "Server=IProvider=OraOLEDB.Oracle;Data Source=Test;User Id=UserIDassword=PassWord;"
Rec.open "select * from Table_Name",Conn
VarName=Rec("Column_Name")
红色部分相应更改