Guys, again, I appreciate the help.
Ok, so I modified it to look like this:
retvar = GetAssetTag(WScript.Arguments(0))
Function GetAssetTag(sn)
Dim sConn, sSQL
Dim rst, cnn
Dim sPath, sDB
sPath = "C:\Users\E048321\Desktop" 'your path
sDB = "MWR-ITInventoryTemplate...