I am getting error "user defined type not defined" while compiling code in vb6 .the b

[ponnu123]

FORM  SECTION

Private Sub command1_click()
tsql$ = "SELECT empname From employee"
tsql$ = tsql$ & "where empid = 1 "
Set rs = cn.Execute(tsql, openstatic, LockReadonly)
While Not (rs.BOF Or rs.EOF)
txtEmployeename.Text = rs(0)
rs.MoveNext
Wend


End Sub

Private Sub ee_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Form_Load()
datafile = "C:\database2.accdb"
With cn
.Provider = "microsoft.ACE.OLEDB.12.0"
.ConnectionString = datafile
.Open
cboTask.Clear
End With
End Sub
   



MODULE SECTION


Global cn As New ADODB.Connection
Global rs As New ADODB.Recordset
Global datafile As String

THe above code is for connecting to a database in access and to display the contents in it.
When I compile the above code i am getting error message as "user defined type not defined".I have included
Microsoft ADO EXT 2.8 for DDL and Security
Microsoft DAO 3.6 Object library

[MikeTheBike]

Hi

Just my two penney worth, shouldn't you have a reference to the Microsoft ActiveX Data Objct xxxx Library ??

I don't think the ADO EXT DDL libary has Connection/Recordset objects. The the DAO 3.6 library does have, but that isn't ADO!!

Don't know if that helps.

MTB

[Killer42]

It might help if you indicate which line reports the error.

[Stewart Ross]

MTB is right - you've included the wrong library. Look for one that is along the lines of

Microsoft ActiveX Data Objects 2.1

or whatever the latest version is that is available on your system.

-Stewart