Object variable not set

[Essex]

Hi Guys

have a problem with an object not getting created when my dll is called. I have registered all the dll's manually and set up a debug environment to step through my code. What happens is when my dll is called I have a call to a sub routine to create some tables, in this sub I have declared an object of type DBquery (dim DBquery as new pdDatabasequery) i then set myVar which is a object of type PDRecordAdapter (dim myVar as PDRecordAdapter) next I "set myVar = DBquery.Createrecorddatabase(params)"....on this line I get the Object error (91).

Option Explicit

Implements IPDClientNotify

Public Function IPDClientNotify_BeginProcess() As Boolean

Create_Tables
Main_Sub

IPDClientNotify_BeginProcess = False

End Function

Private Sub IPDClientNotify_CfgConduit(ByVal nCreatorId As Long, ByVal nUserId As Long, ByVal bstrUserName As String, ByVal bstrPathName As String, nSyncPerm As Long, nSyncTemp As Long, nSyncNew As Long, nSyncPref As Long)
Debug.Print "IPDClientNotify_CfgConduit"
End Sub

Private Sub IPDClientNotify_ConfigureConduit(ByVal pPathName As String, ByVal pRegistry As String, nSyncPref As Long, nSyncType As Long)
Debug.Print "IPDClientNotify_ConfigureConduit"
End Sub

Private Function IPDClientNotify_GetConduitInfo(ByVal infoType As PDDirectLib.EGetConduitInfo, ByVal dwCreatorId As Long, ByVal dwUserId As Long, ByVal bstrUserName As String) As Variant
Debug.Print "IPDClientNotify_GetConduitInfo"
End Function

Private Sub Create_Tables()
Dim hhrec As PDRecordAdapter
Dim pDbQuery As New PDDatabaseQuery

'----the object is not created here for some reason----
On Error Resume Next
pDbQuery.AddLogEntry "Starting to create tables", eText, False, False
If (Err.Number = 0) Then
Err.Clear
Set hhrec = pDbQuery.CreateRecordDatabase("HH_orgdrugmatrix", "PDDirect.PDRecordAdapter", "PAIC", "DATA", eRead Or eWrite Or eShowSecret, eRecord, 1, 0)
error occurs here ^

Anyone ??

Thanks