Dim conn As ADODB.Connection
Dim rst As New ADODB.Recordset

Set conn = New ADODB.Connection
With conn

  .CursorLocation = adUseClient
  .Provider = "MSDAORA"
  '.Open = "dsn=aice10g"
  .Properties("Data Source").Value = "aice10g"
  .Properties("User ID").Value = "disegn"
  .Properties("Password").Value = "disegn"
  .Open
End With
rst.LockType = adLockOptimistic
rst.Source = "select * from ats where ats.date_call is not null"
Set rst.ActiveConnection = conn
rst.Open
rst.AddNew
.
.
.
rst.update