Busqueda dentro de base de datos

[totigo]

Tu quieres asignar el resultado de la consulta a un MSHflexgrid. hazlo a traves de la propiedad DataSource de tu control.+

Código vb:

Dim ADBrecordset As New ADODB.Recordset
Dim strParametro as String
       
    strSucursal = "cordoba"
    sql = " SELECT * FROM TABLA WHERE CAMPO='"   & strParametro & "'"
 
    Set ADBrecordset = New ADODB.Recordset
    ADBrecordset .Open sql, miAdoConexion, adOpenForwardOnly
    
    Set mi_MSHFlexGrid.DataSource = ADBrecordset