Fel: Object variable or With block variable not set

Tjenare,

Efter att ha slitit av nästan allt mitt hår vänder jag mig nu till wF för hjälp...

Jag har en ActiveX-komponent med några klasser...

Relaterade funktioner funktioner som anropas när jag får felmeddelande är dessa:

DatabaseClass:

Private strDB As String
Private objConnection As Connection

Private Sub Class_Initialize()
  SetDB = "xxx"
  openDatabase = 1
End Sub

Public Property Get GetDB() As String
  GetDB = strDB
End Property

Public Property Let SetDB(strDBString As String)
  strDB = strDBString
End Property

Public Function openDatabase() As Integer
  Set objConnection = New ADODB.Connection
  objConnection.Open strDB
  openDatabase = 1
End Function

Public Function getDatabase() As Connection
  getDatabase = objConnection
End Function

Public Function getRecordset(objCon As ADODB.Connection, strSQL As String) As ADODB.Recordset
  Set getRecordset = objCon.Execute(strSQL)
End Function

UserClass:

Private intUserId As Integer
Private rsUser As Recordset
Private rsAgUser As Recordset
Private clsDB As DatabaseClass

Private Sub Class_Initialize()
  Set clsDB = New DatabaseClass
End Sub

Public Property Get GetUserId() As Integer
  GetUserId = intUserId
End Property

Public Property Let SetUserId(ByVal intNewUserId As Integer)
  intUserId = intNewUserId
End Property

Public Function InitUser() As Integer
  If Len(intUserId) > 0 Then
    Dim strSQL As String
  
    strSQL = "select * from tblUsers where UserId = " & intUserId
    Set rsUser = clsDB.getRecordset(clsDB.getDatabase(), strSQL)
    
    strSQL = "select count( message ) as agCount from tblMessages where UserId = " & intUserId
    Set rsAgUser = clsDB.getRecordset(clsDB.getDatabase(), strSQL)
    InitUser = 1
  Else
    InitUser = 0
  End If
End Function

Och jag får alltså felmeddelandet:
Object variable or With block variable not set

När jag kör denna koden (i ASP):
set clsUser = createobject( "SweQuake.UserClass" )
clsUser.SetUserId = 3
clsUser.InitUser <-- Felmeddelande

InitUser ropar på getRecordset och getDatabase ifrån DatabaseClass

Så, har någon lust att hjälpa mig med felsökningen innan jag sliter av resten av håret...

Mvh, Vide