Hi

I have a small procedure which runs ADO commands (sent as strings):

Public Sub RunCmd(ByVal Sta As String)

Call OpenConnection

Set cmds.ActiveConnection = cnn1
cmds.CommandTimeout = 15
cmds.CommandText = Sta

On Error GoTo CmdErr

CmdRetry:
cmds.Execute

CmdErr:
' Error processing here....

End Sub

No error trapping occurs ! I seem not to be able to intercept errors, such as faulty table name, column name etc.

What should I do ?

Mike,
Bucharest

Hi,

You can trap the error by reading the Err object.

Try this

CmdErr:
If Err.Number <> 0 then
      Msgbox "Error: " & Err.Description, "Alert"
      Err.Clear
      exit sub
end if

Hope this helps,

Lalit
Life Means More...;)