VBA/Makro hent data fra SQL server

Hej

Jeg har et velfungerende Excel ark med en VBA/Makro der henter data fra min SQL server.
Efter skift af pc virker det ikke mere og jeg får nu kun #NAVNI!/
#VÆRDI! i alle data felter.
Function VismaReal(FirmaDSN, Aar, PeriodeFra, PeriodeTil, Konto)
Set Conn = CreateObject("ADODB.Connection")
Conn.Open ("DSN=" & FirmaDSN & ";Trusted_Connection=Yes")

' OBS! Fortegn vendes
  StrSql = "SELECT (-1) * SUM(AcTr.AcAm) FROM AcTr " & _
          " WHERE (AcTr.AcYr = " & Aar & ") AND (AcTr.AcPr BETWEEN " & PeriodeFra & " AND " & PeriodeTil & ")" & _
          " AND  (AcTr.AcNo in (" & Konto & "))"
                 
Db = Conn.Execute(StrSql)
VismaReal = Db(0)
Conn.Close
End Function

jeg er ret sikker på koden virker men jeg mangler et eller andet på min pc for det virker.
Office365.

Nogen bud?