Visual Basic - Consulta SQL

Desde ya, gracias a todos.

Tengo un campo en una tabla compuesto por ceros y unos.

Ejemplo:
1010100010
0110000010
0100101010
0011110011

Y necesito hacer una consulta desde visual basic que me muestre, por ejemplo, todos los resultados que contengan en el 3º y el 5º caracter el valor "1", o en el 1º, 3, 8º el valor de 1, o en el 7º, 8, 10º caracter el valor de uno, etc. Es decir, que el valor de 1 lo decidirá el usuario.

Espero haberme expplicado bien.

Muchas gracias.

P.D: ESTOY DESESPERADO ;(

hola, tenes un funcion que se llama Mid en la le pasas 3 parametros (la palabra, en este caso seria el campo e tu base, la posicion inicial y la posicion final )

Seria algo asi:

select * from TABLA where Mid(CAMPODELATABLA, posicion - 1, posicion + 1)=1"

Creo que eso seria todo, posicion seria por ejemplo que quiero saber los que tiene en la posicion 3 el numero 1.

La consulta quedaria:

"select * from TABLA where Mid(CAMPODELATABLA, 2, 4)=1"

espero haber ayudado, un salduo

Primeramente agradecer de antemano tu ayuda

Te comento que el problema es que es aleatorio, es decir, definido por el usuario. Lo mismo quiere buscar uno, que dos o tres, o cuatro,....., te explico mejor:

Según el campo de mi BBDD almaceno los siguientes valores
1010
0110
0100
0011

Esto hace referencia a TRUE (1) o FALSE (0) en checkbox.
Valor primero es Manzana
Valor segundo es Pera
Valor tercero es Melocotón
Valor cuarto es fresa

Entonces, por ejemplo, un usuario puede realizar las diferentes consultas

1. Listar los que tengan manzana independientemente de los demás
2. Listar los que tengan manzana, melocotón y fresa independientemente de los demás
3. Listar los que tengan Pera y Fresa y que no tengan melocotón
4. Etc....

Siento explicarlo así, no se si habré sido lo suficientemente claro. Hasta yo mismo a veces ni lo entiendo

Muchas gracias

Ok. ya lo solucioné, no hay nada mejor que el lapiz y el papel....

copio y pego por si a alguien le interese.

Tendiendo una matriz de 10 checkbox

************************************************************
************************************************************
************************************************************

While m < 10
If Check2(m).Value = 1 Then
chkcursos = chkcursos & m & "-"
almacenamid = almacenamid & "and Mid(curso_interesado," & m + 1 & ",1)='1' "
End If
m = m + 1
Wend

sql = "Select * from tabla1 where apellidos like '% " & variable1º& " %' " & almacenamid

************************************************************
************************************************************
************************************************************

Gracias por la ayuda