Ho provato anche così

Dim DataSistema As DateTime = DateTime.Now
txtDataSistema.Text = DataSistema.AddDays(10).ToString("dd/MM/yyyy")


("Select * FROM tbStock where scadenza = "(DataSistema.AddDays(10).ToString("dd/MM/yyyy"))

Lancio e mi genera il seguente errore: - Cast non valido dalla stringa "13/11/2014" al tipo 'Integer'. -

Grazie