Sub main()

'** PROBLEM... (running on Win2000 pro)

'** A trigger on a table in SQL7 SP2 returns an error msg using RAISEERROR.

'** When a sql statement is sent from a VB6 program using an ADO (SQLOLEDB)
'** connection the trigger raises an error, which is returned to the VB
'** program via the Errors collection in the ADO connection object.

'** Changing the locale in Window's regional options causes the error description
'** to be returned as blank.

'** Example: the description is returned for locale of English (United States)
'** but not for Dutch (Netherlands)

'** -- script to create the test table and trigger
'** create table test
'** (
'** test int
'** )
'** GO
'** CREATE TRIGGER trg_test ON [dbo].[test]
'** FOR INSERT, UPDATE, DELETE
'** AS
'** RAISERROR ('test error message',16,1)
'** GO

Dim cn As New ADODB.Connection
Dim sql As String

    '// connect to db (CHANGE THE CONNECTION STRING AS REQUIRED
    cn.Open "Provider=sqloledb;Server=<SRV>;Database=<DB>;Trusted_Connection=Yes;"
    
    '// will fail because of insert trigger
    sql = "INSERT TEST (test) VALUES(1)"
    
    cn.Errors.Clear
    Err.Clear
    
    On Error GoTo ErrorHandler
        cn.Execute sql
    On Error GoTo 0
    
    Exit Sub

ErrorHandler:

    '// show the error details returned
    MsgBox CStr(cn.Errors(0).NativeError) + " - " + cn.Errors(0).Description
    
    cn.Close
    Set cn = Nothing

End Sub