VISTA er skyld i at funktion ikke længere kan bruges!

Hej Alle..
Jeg har i et faktureringsprogram en kode som samler alle email-adresserne på nogle folk til en tekst, hvor hver email-adresse er adskilt med et ;
Derefter gemmes denne tekst i udklipsholderen, og "Ny Email" startes op i Outlook, og teksten fra udklipsholderen kan nu kopieres direkte ind i adresselinjen.

Dette har fungeret fint indtil computeren hvor programmet kører på skulle opgraderes, og dette blev selvfølgelig til en maskine som kører Windows Vista, og nu vil denne funktion pludselig ikke fungere længere..

Koden på kommandoknappen ser ud som følgende:
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim varOutput As Variant
Dim strQuery As String
Dim strEmail As String

Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset

    strQuery = "SELECT * From qrySendmail"
    rst.Open strQuery, cnn, adOpenStatic, adLockReadOnly, adCmdText
    varOutput = rst.GetString(, , , ";")
    Application.FollowHyperlink strEmail
    strEmail = varOutput
   
    Me.txtSamletSMS.Visible = True
    Me!txtSamletSMS = strEmail
    Me.txtSamletSMS.SetFocus
    RunCommand acCmdCopy
    Application.FollowHyperlink "mailto:"
    Me.Dato.SetFocus
    Me.txtSamletSMS.Visible = False
rst.Close
cnn.Close

Har forsøgt at søge lidt på området, og synes jeg kan komme frem til at det er noget med ADODB. som muligvis ikke længere fungerer når man kører Windows Vistam, men helt præcist hvordan man så får dem til at virke igen er jeg ikke helt sikker på.
(se evt. http://forums.iis.net/t/1071472.aspx )

Mvh.
Steffen