Outlook 2010 - Dropdown via OLEDB

Sub Item_Open()
        ' Excel Datei  
	strFile = "D:\Pfad\Daten.xlsx"  
        ' Name der Tabelle in der Exceldatei  
	strTableName = "Tabelle1"  
        ' Datenobjekte erstellen  
	Set objConnection = CreateObject("ADODB.Connection")  
	Set objRecordset = CreateObject("ADODB.Recordset")  
	' Verbindung zum Excel Sheet herstellen  
        objConnection.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; DBQ=" & strFile & "; HDR=Yes;"  
        ' Recordset mit Daten aus der Tabelle füllen  
	objRecordset.Open "Select * FROM [" & strTableName & "$]", objConnection  
        ' Combobox referenzieren (Name des Tabs und des Controls selbstverständlich anpassen)  
	set objCombo = Item.GetInspector.ModifiedFormPages("Nachricht").Controls("ComboBox1")  
        'Recordset durchlaufen  
	Do Until objRecordset.EOF
                ' Item der Combobox hinzufügen (Spaltenname anpassen)  
   		objCombo.AddItem objRecordset.Fields.Item("Dropdowndata")  
                ' zur nächsten Zeile des Recordsets  
   		objRecordset.MoveNext
	Loop
        ' Verbindungen trennen  
	objRecordset.Close
	objConnection.Close
End Sub

Sub Item_Open()
        ' Pfad zur Excel Datei  
	strFile = "D:\Pfad\Daten.xlsx"  
        ' Combobox referenzieren (Name des Tabs und des Controls selbstverständlich anpassen)  
	set objCombo = Item.GetInspector.ModifiedFormPages("Nachricht").Controls("ComboBox1")  
        ' Excel-Worksheet auf "Tabelle1" öffnen   
	With GetObject(strFile).Worksheets("Tabelle1")  
                ' und Bereich A2:Ax (x = letzte gefüllte Zelle in Spalte A) zur  Combobox hinzufügen  
		for each cell in .Range("A2:A" & .Cells(.Rows.Count, "A").End(-4162).Row)  
			objCombo.AddItem cell.Value
		Next
                ' Workbook object schließen  
		.Parent.Close
	End with
End Sub