Problema con InputBox

[DIDAKE]

Hola : Tengo el siguiente problema . En un form tengo que leer el ingreso de una cadena de texto que hace el usuario. Para eso creo una caja de entrada de datos InputBox y una variable cadena tipo string

Dim cadena As String
cadena = InputBox("Ingrese el Título o tema de su interés, o bien solo una palabra que considere relacionada." & vbCrLf & "Buscaremos coincidencias con su ingreso dentro de la base de datos.", " Búsqueda por Título")

Luego en el Datasource
Adodc.RecordSource = "Select * from tabla Where temas like '%" & cadena & "%'"

En diseño cuando pruebo la ejecución del programa la caja InputBox presenta los botones Aceptar y Cancelar , pero cuando compilo la aplicación la misma caja InputBox me muestra los botones Ok y Cancel. Mi Windows Xp está en castelllano (aclaro)
¿ Alguien sabe a que se debe? Desde ya gracias

[seba123neo]

Hola,que raro yo probe y me sale bien,sino hace una cosa para solucionarlo,create un form como el inputbox con los botones y todo y ponele el texto que quieras y el diseño que quieras.

saludos.

[hermanosvalor]

Es sencilla la respuesta, y es que Input Box NO es un comando de Visual basic 6, aunque se pueda usar desde ahi, es un comando de Windows Script Host. De esta forma, el compilador lo muestra segun unas librerias especiales de debuggin, que son en español. Pero Windows Script Host por defecto suele ser Ingles (aun en Win españoles); y es por eso que te sale asi (Nota: que sea de WSH no significa necesariamente que tenga que ejecuta WScript.exe).

Como bien dice seba123neo, lo mejor es crear una función:

Código:

Public InputBox(ByVal Msg, Optional ByVal Texto, Optional ByVal Titulo, Optional ByVal x, Optional ByVal y)
   FormInput.Show: formInput.Move(x,y)
    Do
     Doevents
    Loop Until FormInput.Visible = false
   InputBox = resultado
End Function

O algo así. Creas un form como quieras para simular el InputBox y la variable resultado, de caracter publico y global que almacene la respuesta. Obviamente el codigo esta aun muy para depurar y asi no funcionara del todo correctamente, pero es una guia mas o menos para saber lo que se intenta.

Saludos!