Bases de Datos - Sentencia SQL igualar a variable

Necesito igular el resultado de una sentencia sql atacando a acces a una variable, sentencia select SUM(CAMPOIMPORTE) from TABLA where campo=NOMBRE, el valor numerico necesito guardarlo en una variable, utilizo un data para el control de la base de datos, todo en VB6

pone esta sentencia en un string de VB6.0 ( Digamos sSql)
Select Sum(CAMPOIMPORTE) AS MAXIMO
FROM Tabla
WHERE CAMPO=NOMBRE

Luego desde VISUAL
SI USAS RDO CREATE EL SIGUIENTE CODIGO
Dim sSql As String
Dim Query As rdoQuery
Dim Resultado As rdoResultset
Dim Importe As Double

sSql = <SENTENCIA SQL ARRIBA DESCRIPTA>
set Query = <VARIABLE DE TIPO rdoConnection>.CreateQuery("",sSql)
set Resultado = Query.openResultset(rdOpenKeyset)

If Not(Resultado.EOF and Resultado.BOF) then
Importe = Resultado.rdoColumns("MAXIMO").value
End If

SI USAS DAO CREATE EL SIGUIENTE CODIGO
Dim sSql As String
Dim Query As Querydef
Dim Resultado As Recordset
Dim Importe As Double

sSql = <SENTENCIA SQL ARRIBA DESCRIPTA>
set Query = <VARIABLE DE TIPO Database>.CreateQueryDef("",sSql)
set Resultado = Query.openRecordset(dbOpenDynaset)

If Not(Resultado.recordcount = 0) then
Importe = Resultado.Fields("MAXIMO").value
End If

Espero te sirva esta ayuda (El truco es usar un alias para la funcion de agregacion)
Un Saludo
Esteban Arias

Agrega la resuesta de esta expresión a un cuadro de texto o etiqueta y pasalo a la variable

dim a as integer
dim consulta as string
consulta = "SELECT SUM(CAMPOIMPORTE) FROM TABLA WHERE CAMPO= NOMBRE"
Data1.RecordSource = consulta
Data1.Refresh
Text1.datasource= data1
a = val( text1.text)