Visual Basic - FILTRAR por LETra revisar codigo

hola a todos necesito filtar un adodc por letras es decri que si el usuario ingresa "A" entonces filtre los registros que comienzan por A y si despues ingresa B entonces los registros "AB" y así sucesivamente. Trate de hacerlo asi

Adodc1.RecordSource = "select * from tabla1 where mid(desc,1,ta)='" & Text1.Text & "'"
Adodc1.Refresh
DataGrid1.Refresh

pero entonces me sale el error

ERROR en clausula FORM y en el metodo REFRESH si pueden ayudenme
Gracias

En realidad deberías usar en la sentencia, el Operador LIKE

Adodc1.RecordSource = "select * from tabla1 where desc LIKE '" & Text1.Text & "%'"

El problema es que consumirías muchos recursos, por ahí te convendría usar el metodo filter del ADODC.

Gracias pero me sigue dando el mismo error lo puse como dijiste y me dice lo mismo.
El codigo lo puse asi

Adodc1.RecordSource = "select * from tabla1 where desc LIKE '" & Text1.Text & "%'"
Adodc1.Refresh
DataGrid1.Refresh

Julio, el problema no es el código, sino el objeto ADODC, con la propiedad CommandType la cual estableciste en Table.

Seguidamente te transcribo la rutina para que no tengas que tocar el objeto y sólo utilices código.

Private Sub Text1_Change()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM Authors WHERE Author LIKE '" & Text1.Text & "%'"
Adodc1.Refresh
End Sub