Private Sub txtSearch_Change()
sent = "SELECT * FROM stock WHERE Descripcion LIKE '" & txtSearch & "%" & "'"
Adodc1.RecordSource = sent
Adodc1.Refresh
End Sub

Call ReGrid "SELECT * FROM Inventario WHERE Barcode LIKE '" & Text1.Text & "%" & "'" , flex

Private Sub Form_Load()
    ' Abre la conexión
    Call IniciarConexion
    ' carga el Recorset con todos los datos
    rs.Open "select * from Consulta1", cnn, adOpenStatic, adLockOptimistic
    ' llena el flexgrid
 
    Call CargarFlex(flex)
 
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd.mdb; Persist Security Info=False"
    Adodc1.RecordSource = "select * from Consulta1"
    Adodc1.Refresh
End Sub
 
Private Sub Text1_Change()
        rs.Close
        rs.Open "SELECT * FROM Inventario WHERE Barcode LIKE '" & Text1.Text & "%" & "'", cnn, adOpenStatic, adLockOptimistic
        Set flex.DataSource = rs
 
End Sub

Option Explicit
 
Public Declare Sub InitCommonControls Lib "Comctl32" ()
Public flex As MSHFlexGrid
Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
 
 
Sub CargarFlex(flex As MSHFlexGrid)
 
    Set flex.DataSource = rs
 
    With flex
 
        .ColAlignmentFixed(0) = 1
        .ColAlignment(0) = 1
 
        .ColAlignmentFixed(5) = 8
        .ColAlignment(5) = 8
    End With
End Sub
 
 
Public Sub IniciarConexion()
 
    With cnn
        .CursorLocation = adUseClient
        .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd.mdb; Persist Security Info=False"
    End With
 
End Sub
 
Sub Desconectar()
    On Local Error Resume Next
    rs.Close
    Set rs = Nothing
    cnn.Close
    Set cnn = Nothing
End Sub