Data fra access til word

Hej Eksperter,

Jeg sidder med et word dokument hvor jeg skal trække en del data ind fra en access database, jeg taler ikke om brevfletning.

Jeg har følgende kode:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim DSNtest As String

Set cn = Server.CreateObject("ADODB.Connection")
DSNtest = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtest = DSNtest & "Dbq=C:\UK\UK.mdb"
cn.Open DSNtest

Set rs = New ADODB.Recordset
rs.Open "Select name, valueM, valueY from xxx", cn

Do Until rs.EOF
    Debug.Print rs!Name
    Debug.Print rs!valueM
    Debug.Print rs!valueY
rs.MoveNext
Loop
rs.Close

Jeg får dog en fejl i denne sætning:
Set cn = Server.CreateObject("ADODB.Connection")

Jeg kan ikke lige se hvad det er der går galt?