first query called interpolation_left:

SELECT TOP 1 1 AS id, [VAL] AS val_left FROM TAGS WHERE [TAGNAME] < '"&InputValue&"' ORDER BY [TAGNAME] DESC;

second query called interpolation_right:
SELECT TOP 1 1 AS id, [VAL] AS val_right FROM TAGS WHERE '"&InputValue&"' < [TAGNAME] ORDER BY [TAGNAME];
final query by putting together the previous two queries
SELECT (val_left + val_right) / 2 as result FROM   interpolation_left INNER JOIN  interpolation_right ON interpolation_left.id = interpolation_right.id
How can I save the results of each query in a variable? I tried doing it the way I mentioned earlier in this post but doesn't work.
Please Suggest
Khyzer

Code to search value of column ‘VAL’ by inputting value for column ‘TAGNAME”

'VBS108a

Dim objConnection

Dim objCommand

Dim objRecordSet

Dim strConnectionString

Dim strSQL

Dim lnputValue

Dim lngValue

Dim lngCount

strConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;"

lnputValue = HMIRuntime.Tags("TagB").Read

strSQL = "Select VAL from TAGS WHERE TAGNAME='"&lnputValue&"'"

Set objConnection = CreateObject ("ADODB.Connection")

objConnection.ConnectionString = strConnectionString

objConnection.Open

Set objRecordSet = CreateObject ("ADODB.Recordset")

Set objCommand = CreateObject ("ADODB.Command")

objCommand.ActiveConnection = objConnection

objCommand.CommandText = strSQL

Set objRecordSet = objCommand.Execute

lngCount = objRecordset.Fields.Count

If (lngCount> 0) Then

objRecordset.movefirst

'lngValue objRecordSet.Fields = (0). Value

lngValue = objRecordset.Fields(0).Value

'lngValue = lnputValue

HMIRuntime.Tags ("TagC"). Write lngValue

Else

HMIRuntime.Trace "Selection returned no fields" & vbNewLine

End If

Set objCommand = Nothing

objConnection.Close

Set objRecordSet = Nothing

Set objConnection = Nothing