Have you set a reference to Microsoft ADO 2.0 (or 2.1 or 2.5)?


>I am getting the following error when i run the form
>
>"User-defined type not defined"
>
>not SP3 not installed ... do i have to installe it
>
>Thanks
>
>
>>>Thank you for your reply.
>>>
>>>I am using ADO. Kindly, can you show me an example.
>>>
>>>Rgrds
>>>
>>>
>>>>>Hi, I am new to VB and trying hardly to work on it,
>>>>>and I appreciate any help.
>>>>>
>>>>>I am opening the data file "mdb" with each form I
>>>>>create, but I don't think this is the correct way to
>>>>>do it.
>>>>>I think that I should open the file one time
>>>>>when I load the application and then deal with the
>>>>>tables around the application.
>>>>>
>>>>>Can anyone tell me how to do this, and in which form.
>>>>
>>>>Which database access method are you using? DAO? ADO? RDO?
>>>>
>>>>The rule is normally to open a connection, keep it in a global variable and use this variable through the entire application!
>>
>>This is one way of going that kind of things (there is many roads to ...):
>>
>>1) Start a new Standard EXE project
>>2) Add a Standard module to the project
>>3) Set a reference to Microsoft ADO
>>4) In the project properties, set the Startup object to "Sub Main"
>>5) Paste this code to the standard module.
>>

Option Explicit
>>
>>Public gobjConn As ADODB.Connection
>>
>>Public Sub Main()
>>    'This will open a global connection
>>    Set gobjConn = New ADODB.Connection
>>    With gobjConn
>>        'Change the data source property in the following line
>>        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\Nwind2000.mdb;Persist Security Info=False"
>>        .Open
>>    End With
>>
>>    'Now that the connection is open, display the application
>>    Form1.Show
>>End Sub

>>
>>6) Add a Datagrid to Form1.
>>7) Paste this code to Form1.
>>

Option Explicit
>>
>>Private Sub Form_Load()
>>Dim rstData As ADODB.Recordset
>>
>>    Set rstData = New ADODB.Recordset
>>    With rstData
>>        'This is where we use the global connection.
>>        .ActiveConnection = gobjConn
>>        .CursorLocation = adUseClient
>>        .CursorType = adOpenStatic
>>        .LockType = adLockReadOnly
>>        .Source = "SELECT * FROM Employees"
>>        .Open
>>    End With
>>    Set DataGrid1.DataSource = rstData
>>End Sub
>>