ADO-Ausführung - Kompilierfehler: Benutzerdefinierter Typ nicht definiert

Question

Ich habe die folgende Ado-Verbindung von Excel zu Zugriff, aber es funktioniert nicht, bekomme den Fehler oben. Irgendwelche Ideen?

Sub ADO_to_access() 

Dim database As New ADODB.Connection // ERROR HERE 
Dim connectionstring As String 
Dim NewSet As Recordset 
Dim CurrentSheet As Worksheet 

Set CurrentSheet = ActiveSheet 
Set objaccess = Nothing 

connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; " & _ 
     "Data Source=C:\Users\Carlos\Desktop\VBA - CW - Database.mdb;" 

database.Open connectionstring 

' ************* MEN 
Set NewSet = New ADODB.Recordset 
NewSet.Open "Mens_Dept_Data", database, adOpenKeyset, adLockOptimistic, adCmdTable 

x = 6 
Do While Len(Range("P" & x).Formula) > 0 
With NewSet 
.AddNew 

.Fields("Irina").Value = CurrentSheet.Range("P" & x).Value 
.Fields("Thomas").Value = CurrentSheet.Range("Q" & x).Value 
.Fields("Jackie").Value = CurrentSheet.Range("R" & x).Value 

.Update 
End With 
x = x + 1 
Loop 

NewSet.Close 
database.Close 

End Sub 

Answer 1

Haben Sie die Adodb-Bibliothek referenziert? (Von VBE, wählen Sie Extras, Referenzen)

Answer 2

Ich glaube, dass das Problem in diesen Typen sein könnten:

adOpenKeyset, adLockOptimistic, adCmdTable 

versuchen, sie wie folgt zu definieren:

var adOpenForwardOnly = 0, adOpenKeyset = 1, adOpenDynamic = 2, adOpenStatic = 3; //CursorType Values 
var adLockReadOnly = 1, adLockPessimistic = 2, adLockOptimistic = 3, adLockBatchOptimistic = 4; //LockTypeEnum Values 
var adStateClosed = 0, adStateOpen = 1, adStateConnecting = 2, adStateExecuting = 4; //ObjectStateEnum Values 
var adUseServer = 2, adUseClient = 3 //CursorLocationEnum Values 
var adCmdTable = 2 //CommandTypeEnum Values 

Nach Edit:

Entschuldigung, dies ist für den JScrip-Dialekt, aber ich bin sicher, dass Sie es zu VBScript ändern können. :)