select clienti where data=@Data
Dim Valore as Date=Date.Parse(Textbox1.text)
TuoCommand.Parameters.Add(New Parameter With {.DbType=DbType.DateTime, .Value=Valore,.ParameterName="@Data"})