Visual Basic - problema SELECT SUM, AYUDA!!!! URGE!!!!!!!

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 cadena As String
cadena = "select sum (comision) from ventas1 where clave_emp like '" & Text1 & "%';"

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

"SELECT SUM(COMISION) FROM VENTAS WHERE UPPER(CLAVE_EMP) LIKE UPPER '" & Text1.Text & "%'"

gracias ya no me manda error, ahora mi problema es como sacer el valor de la suma a una variable y ponerlo en un textbox o en un label

tengo tres dias atorado con esto, ojalá supieras

Prueba:
Asigna un alias a : SUM(COMISION) AS SUMA
VARIABLE = NOMBREDELRECORDSET . SUMA
Ya me dirás si salió.- Un saludo.

aqui está el codigo por si alguien necesita de lo mismo y para que no sufre como yo:

en declaraciones va esto:
Dim db_file As String
Dim SQLstmt As String
Dim cn As ADODB.Connection
Dim rs2 As ADODB.Recordset

En un botón esto:
db_file = App.Path & \"\\BASE.mdb\"
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.ConnectionString = _
\"Provider=Microsoft.Jet.OLEDB.4.0;\" & _
\"Data Source=\" & db_file & \";\" & _
\"Persist Security Info=False\"
cn.Open
SQLstmt = \"SELECT SUM(COMISION) AS TOT_COM FROM VENTAS1 WHERE (CLAVE_EMP) LIKE \'\" & Text1.Text & \"%\' and cancelada like \'NO\';\"
Set rs2 = New ADODB.Recordset
rs2.Open SQLstmt, cn, adOpenStatic, adLockOptimistic, adCmdText

Text2.Text = Format$(rs2.Fields(\"TOT_COM\"), \"$##0.00\")
rs2.Requery

Solo así funcionó, gracias a quien me ayudó en esto ;), mil gracias.

Es increible que en internet no exista información para esto, o que no haya sabido buscarla, pero bueno ahí está. =)