modifying VB code to work in Access 97

[MontyBurns]

Hi,

I've got the following VB6 code which calls a DLL and returns an ADODB.Recordset. I need to get it to work in an Access 97 DB but can't figure out what I have to do.

Private Sub cmdGetuserInfo_Click()
Dim CCPM As CCPnMObjects.CCPnM
Dim rs As ADODB.Recordset
Dim NTUserID As String

'On Error GoTo err_handler

Set CCPM = CreateObject("CCPnMObjects.CCPnM&quot
Set rs = CreateObject("adodb.Recordset&quot

NTUserID = Me.txtUID

CCPM.BindingString = Me.txtBindingString.Text

Set rs = CCPM.getUserInfo(NTUserID)

If Not rs.EOF Then
Me.txtFName = rs("Firstname&quot
Me.txtSurname = rs("Lastname&quot
Me.txtPArea = rs("PracticeArea&quot
Me.txtJobTitle = rs("JobTitle&quot
Me.txtLocation1 = rs("Location1&quot
Me.txtLocation2 = rs("location2&quot
Me.txtEmail = rs("Email&quot
Me.txtRole = rs("Role&quot
End If

Set rs = Nothing
Set CCPM = Nothing

Exit Sub
err_handler:
MsgBox Err.Number & " - " & Err.Description
End Sub

I've added a reference to the DLL, but am getting errors with the ADODB.Recordset part. What exactly should I be doing?

Any help much appreciated,
Burns

 

[BobLoblaws]

Could you be more specific. What is the error?
Did you create the DLL?

 

[MontyBurns]

I get a type mismatch from the following line:

Set rs = CreateObject("adodb.Recordset&quot

I'm using Access 97 and therefore DAO. I've tried adding a reference to ADO 2.7 but no luck.

I didn't write the DLL, but basically the .GetUserInfo method takes a domain and user ID, searches a SQL DB, and returns the relavant recordset (obviously only one record/row for each user ID).

My problem is i'm not sure how to define a recordset and fill it with the results from the method.

Any ideas?

Thanks,
Burns

 

[BobLoblaws]

Instead of

Set rs = CreateObject("adodb.Recordset&quot
Set CCPM = CreateObject("CCPnMObjects.CCPnM&quot

try

Set rs = New ADODB.Recordset
Set CCPM = New CCPnMObjects.CCPnM

 

[MontyBurns]

this works Bob - much appreciated.

Thanks,
Burns