Visual Basic - buscar registros con guiones

Hola gente como va....

Estoy haciendo un programa en Visual Basic 6.0, en el cual tengo una conexion a una base de datos, todo funciona ok, EL PROBLEMA LO TENGO EN UNA DE LAS BUSQUEDAS...

agradezco toda ayuda, lo necesito lo mas pronto posible ya tengo fecha de entrega, gracias de antemano.....

LO QUIERO HACER ES LO SIGUIENTE:

EN LOS CAMPOS DE LA (BD) TENGO LOS REGISTROS CARGADOS CON EL SIGUIENTE FORMATO, POR EJ: (X-256-365-C), (A-1256-653-1)...... REALIZO LA BUSQUEDA DE LA SIGUIENTE FORMA:

Data1.RecordSource = "select * from TABLA where CAMPO like '*" & Text11 & "*' "

DONDE (TEXT11) ES DONDE INGRESO LO QUE QUIERO BUSCAR.

EL PROBLEMA ES QUE SINO LE INGRESO LA PALABRA TAL CUAL COMO ESTA EN EL REGISTRO, NO LO ENCUENTRA, POR EJ:

SI INGRESO (X256365C), NO ME ENCUENTRA (X-256-365-C), EL PROBLEMA ESTA CON LOS GUIONES.....

YO LO QUE QUIERO ES QUE AL INGRESAR LOS DATOS (CON O SIN LOS GUIONES) ME LO ENCUENTRE IGUAL..... EJ:

INGRESO : (X256365C) Y QUE ENCUENTRE (X-256-365-C)...

ESPERO HABER SIDO CLARO, LES AGRADEZCO CUALQUIER AYUDA, SALUDOS....

Lo que quieres hacer es un tanto imposible por la lógica sin embargo te recomiendo que hagas una mascara o utilices el mid para agregarle los guiones de manera automática (Si es que hay una secuencia logica, es decir primero lleva una letra y despues un gion y despues 3 letras y despues un guion, etc.. péro que sean siempre igual el numero de caracteres y la posicion del gion para que te funcione la mascara o el formato). si eso resuelve tu problema con gusto te ayudo solo mandame un correo. saludos

Hágalo de la siguiente forma:

Dim j()
Cantidad = Len(Text11.Text)
ReDim j(0 To Cantidad)
For i = 1 To Len(Text11.Text)
j(i) = (Mid$(Text11.Text, i, 1))
Next i
SQL = "Select " & " " & "*"
SQL = SQL & " From " & " " & "Tabla1"
SQL = SQL & " Where " & " " & "a" & " LIKE '*" & j(1) & "*'"
For i = 2 To Len(Text11.Text)
SQL = SQL & " and " & " " & "a" & " LIKE '*" & j(i) & "*'"
Next
'MsgBox SQL
Data1.RecordSource = SQL
Data1.Refresh

Le va a encontrar igual con o sin los guiones