VB funktion i SQL streng

Halløj

Kan jeg lave noget lign. følgende?

SQL = \"Select distinct mid(smnummer,4,1) as nummer order by mid(smnummer,4,1)\"

Mit forsøg giver følgende fejl:

SELECT-sætningen indeholder et reserveret ord eller argument, der er stavet forkert eller mangler, eller tegnsætningen er ikke korrekt.