vba binnen word 2010

[maze00]

Goedenavond,

Ik zit met een probleem waar ik niet helemaal goed uit kom.

Ik heb onderstaande vba script die ervoor zorgt dat er vanuit een excel bestand gegevens worden geimporteerd in een Word document.
(gejat van http://www.paulsnip.nl/content/voorbeelden.asp?action=item&id=721&grp=0)
Binnen Word 2003 werkt dit prima !

Private Sub Invoegen_Click()
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & ActiveDocument.Path & "\Adressen.xls;"
rs.Open "SELECT * FROM [Sheet1$] WHERE Naam = '" & ComboBox1 & "'", conn

Selection.GoTo wdGoToBookmark, , , "Naam"
Selection.TypeText rs("Naam")
Selection.GoTo wdGoToBookmark, , , "Adres"
Selection.TypeText rs("Adres")
Selection.GoTo wdGoToBookmark, , , "Plaats"
Selection.TypeText rs("Postcode") & " " & rs("Plaats")
rs.Close: Set rs = Nothing
conn.Close: Set conn = Nothing
End Sub

Alleen werkt deze code niet met Word 2010

Nu is mijn vraag, hoe kan ik deze code zo krijgen dat hij ook met Word 2010 gaat werken ?

Alvast bedankt !