Vb6.0 Dll

[sandeepthachan]

i have created a ActiveX dll using the below mentioned code...Ho can i call the same into a Visual basic 6.0 Application.. I have converted this to a DLL

Public Function GetDet(ByVal str As String) As ADODB.Recordset
On Error GoTo Err:
CON.CursorLocation = adUseClient
strCon = "Connection"
CON.Open (strCon)
If REC.State = 1 Then REC.Close
REC.Open "select emp_name from employee_master where emp_id='" & str & "'", CON, adOpenForwardOnly, adLockReadOnly
If Not REC.EOF Then
Set GetDet = REC
REC.MoveNext
Else
MsgBox "No Employee Found"
End If
Err:
End Function

If anybody know the code to call the same to a VB6.0 Application program. KIndly let me know

[debasisdas]

1. Copy the DLL into system32 folder.
2. Register the dll using REGSVR32 key.
3. Refer that dll through other VB Application from Project--->Reference.

[sandeepthachan]

1. Copy the DLL into system32 folder.
2. Register the dll using REGSVR32 key.
3. Refer that dll through other VB Application from Project--->Reference.

I have created one object and assigned a parameter value to the same. But its showing an error message like 'Runtime Error:91' Object Variable or With Block Variable not Set. . Whats Could be the problem. Can u give me a simple code to fetch the data from the same to a textbox

[debasisdas]

I am not sure from your code ,what you are trying to do .

[sandeepthachan]

I am not sure from your code ,what you are trying to do .

I want to display the employee_name in to a text Box,through passing Emp_no to the DLL function

I have writtent the code in a Command button of a form as:

Dim EMP as New Employee.ClassName
TExt2.text=EMP.GetDet(Text1.Text)


But here i am getting some error

[debasisdas]

If you want to display in a textbox why are you returning an entire recordset from the function.

Your codes does not seem to do what you want.

[Killer42]

Subscribing .

[sandeepthachan]

If you want to display in a textbox why are you returning an entire recordset from the function.

Your codes does not seem to do what you want.

Do you have any sample code to show the working of a dll. Then it would be a great help for me.