Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.CursorLocation = adUseServer
con.Open "Provider=OraOLEDB.Oracle;User ID=XXXX;Password=YYYY;Data" & _
  "Source=ZZZZZZZ"
con.Execute "truncate table tblerhoehung"
con.Close
Set con = Nothing