[RESOLVED] WithEvents Not firing

[Mythrandil]

Hey

Im fairly new to OO programming in VB and this is my first time trying to create my own events.

What i have so far is simply:

declaration:

Public Event Connected()

routines:

Public Sub SQL_Connect()
On Error GoTo sql_connect_err_handler
    Set cn = New ADODB.Connection
    If cn_string = vbNullString Then Err.Raise CN_STR_NULL
    cn.ConnectionString = cn_string
    cn.Open
    Call Event_Connected
 
Exit Sub
sql_connect_err_handler:
If Err.Number = CN_STR_NULL Then
    RaiseEvent Error(CN_STR_NULL, "", "Connection String Invalid")
Else
    RaiseEvent Error(Err.Number, Err.Source, Err.Description)
End If
 
Private Sub Event_Connected()
    RaiseEvent Connected
End Sub

And on the form:

Public WithEvents NewSql As ClsSQL
 
Private Sub Command1_Click()
Set NewSql = New ClsSQL
End Sub
 
Private Sub NewSql_Connected()
    label1.caption "Connection Active"
End Sub

Tracing the code shows that the connection to db is fine etc etc but it passes through the RaiseEvent call without raising the forms event handler

any ideas?