ACCESS y SQL

tema enviado por CONY en SQL
tema iniciado el 13/07/2007

Hola estoy realizando una consulta en el editor de visual basic de access pero quiero que los datos encontrados se muestren en una tabla, el codigo que utilizo es el siguiente, elguien podria ayudarme a encontrar alguna solucion??

Private Sub BUSCAR_Gotfocus()
'Realizar busqueda en modo: Numero de ENSAMBLE
    
        Dim sql As Database 'base de datos
        Dim sales As Recordset ' tabla
        Dim busqueda As String
        Dim busca As String
       
        
         busca = NBUSQUEDA 'se asigna el textbox a la variable
        
         Set sql = CurrentDb() 'Abre la base de datos
         busqueda = "SELECT * FROM Tubular WHERE Tubular.no_ensamble like '*" & busca & "*'" 'busca la variable
         Set sales = sql.OpenRecordset(busqueda, dbOpenDynaset)
        
       
        
   With sales
    While Not .EOF
        .Edit
        .Update
        .MoveNext
    Wend
End With
Salida:
   sales.Close
   sql.Close
End Sub

 

Gracias por la ayuda que me puedan brindar ...