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

Private Sub Form_Load()
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
end sub


Private Sub tobase(m_str As String)
On Error GoTo  10 
rst.AddNew
.
.
.
rst.update
On Error GoTo  0 
Exit Sub
 10 :
Dim strErr As String
strErr = "Error #" & Err.Number & ": " & Err.Description & vbCrLf
strErr = strErr & "Error reported by: " & Err.Source & vbCrLf
filenum1 = FreeFile
Open App.Path & "\log\log.txt" For Append As filenum1
Print #filenum1, strErr
Close #filenum1
end sub