Dim OraCn As New ADODB.Connection
OraCn.Open "Provider=OraOLEDB.Oracle;User ID=system;Password=manager; Data Source=nipsan.oracle8i"
OraCn.Execute "Select * From a"
OraCn.Execute "Insert into a values( '111','bbb') "