Estou com a dificudade de mostrar o resultado na label
Dim sql As String
sql = "select * from chave where nome = '" & Textsearch.Text & "%'""
With ADO
.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=local;Port=3306;Database=base;User=usuario; Password=senha;Option=3;"
.RecordSource = sql
.ConnectionTimeout = 60
.Refresh
Set Label1.DataSource = ADO ' aqui a minha dificuldade
End With