[VB] connecten naar Access

[Verwijderd]

Ik heb de volgende code

code:

Public Sub Form_Load()

        datPC.DatabaseName = App.Path  "\projectclosure.mdb"
        Dim Conn1 As New adodb.Connection
        Dim Conn2 As New adodb.Connection
        Dim Rs1 As New adodb.Recordset
        Dim Rs2 As New adodb.Recordset
        Dim i As Integer
        Dim AccessConnect As String

        

        AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _"Dbq=projectclosure.mdb;"
 & _"DefaultDir=C:\Database\database\Project Closure;" &
_"Uid=;Pwd=;"
      
        Conn1.Open AccessConnect
        Conn1.Close
        Conn2.Open AccessConnect
        Conn2.Close
      

        Conn1.Open AccessConnect
        Set Rs1 = Conn1.Execute("SELECT * FROM DATA")
        Rs1.Close
        Conn1.Close

        Conn2.Open AccessConnect
        Set Rs2 = Conn1.Execute("SELECT * FROM SCORE")
        Rs2.Close
        Conn2.Close
        
        Set Rs1 = Nothing
        Set Rs2 = Nothing
        Set Conn1 = Nothing
        Set Conn2 = Nothing
        Exit Sub
End Sub

Wanneer ik hem start zegt hij "user defined type not defined" op conn1.

Ik define hem toch juist daar, of haal ik alles door elkaar?

Wat begrijp ik niet of wat moet ik heel snel gaan lezen

[ParaNoiMia]

Heb je MDAC geinstalleerd en in je project bij components een vinkje gezet bij de ActiveX Data Objects library ?

(MDAC staat op http://www.microsoft.com/data)

[Verwijderd]

MDAC heb ik net geinstalleerd maar ik kan de ActiveX Data Objects library niet vinden. Deze staat er niet tussen?

[ParaNoiMia]

Helemaal niets met data objects ?

[Verwijderd]

"Microsoft ActiveX Data Objects 2.1 Library"

Het versienr kan verschillen...
Als je die niet kan selecteren bij je referentie, dan heb je MDAC niet goed geinstalleerd.