Funktion Fejl

Er der nogen som kan få denne kode til at virke?


jeg bruger bruger funktionen sådan:
SettingsLoad(\"nvis\")

Koden:
Function SettingsLoad(tabel)
  Set Antaltemp = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"db.mdb\") & \"; UID=Administrator; PWD=\"
  Antaltemp.open DSN
  SQL = \"SELECT * FROM [settings] WHERE ID=1\"
  Set rsAntal = Antaltemp.execute(SQL)
  SettingsLoad = rsAntal(\"& tabel &\") \'Det er i denne linie den kommer med fejl!
  rsAntal.close
  Antaltemp.close
  Set Antaltemp=nothing
End Function