Det skulle väl vara att ersätta * mot den aktuella kolumen:
...Select "& name &" From...
Plus att öppna och stänga databasen i samband med hämtningen också.
Eller står den på vid glänt?
Frågan#1
Jag använder nedanstående, men det måste finnas något snabbare ju? Dock behövs alla tre parametrarna.
Function PrintValue(tab, value, name)
Set RS = Connect.Execute("Select \* From "&tab&" Where ID="&value&"")
If RS.EOF Then
PrintValue = "-"
Else
PrintValue = RS(name)
End If
RS.Close
End Function