Ayuda Vb

Void
11 de Julio del 2003
Tengo una consulta mas o menos asi
Set botons = cnn.Execute("Select * from accesos where fkusuclave='" & Trim(UCase(Clave)) & "' and fkmodid like '" & nivels & "' ", , adCmdText)

en la maquina en la que estoy programando funciona correctamente, pero al llevar el programa a otra maquina la consulta no funciona, no hace nada