mostrar datos en un mshflexgrid

[SalomonSab]

Has una consulta como esta:

Suponiendo que la tabla en la que vas a accesar se llama VENTAS seria algo com esto:

Código:

rs.Open "SELECT * FROM VENTAS WHERE Clientes = '" & ComboClientes.Text & "' AND Sucursal = '" & ComboSucursal.Text & "' ORDER BY Clientes", cnn, adOpenStatic, adLockOptimistic
        If rs.RecordCount = 0 Then
            MsgBox "No se encontraron registros con la Condición Pedida: " &   ComboClientes.Text & "" & vbNewLine & _
            ComboSucursal.Text & "" & vbNewLine & _
             " Seleccione otro diferente...", vbInformation, "Error de Busqueda..."
                   
            Else
           
          set MSHFlexGrid.DataSource = rs
end if

Espero te Sirva