SSQL= "select * from tabla where descripcion like '%" &txtDescripcion.text & "%'"
With Adodc1
.CommandType = adCmdText
.RecordSource = "Select '' From listado" ' Es select * from no ''
.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
.Visible = False
End With