SELECT SUM, URGE ayuda por favor!!!!!!!!!

[emca]

hola tengoun problema con la instrucción de SQL: SELECT SUM

tengo mi base en accsess y la aplicacion en visual basic, el código que ocupo es el siguiente:

Dim db As Database
Dim sum As Recordset
Set db = OpenDatabase(App.Path & "\base.mdb")
Set sum = db.OpenRecordset("select sum (importe) from ventas1 where clave_emp like '" & Text1 & "%';")
Dim cadena As String
cadena = ("select sum (comision) from ventas1 where clave_emp like '" & Text1 & "%';")
Data1.RecordSource = sum

pero no me suma nada, el valor de cadena es cero siempre,,
como puedo corregir esto?????