Если вы говорите, что D в вашем исходном коде должна быть переменной, то очевидная вещь, которую нужно сделать, это использовать переменную:
Dim criteria As String = "Invt.Type = '" & someVariable & "'"
Это можно сделать более аккуратно, используя String.Format
:
Dim criteria As String = String.Format("Invt.Type = '{0}'", someVariable)
или интерполяция строки:
Dim criteria As String = $"Invt.Type = '{someVariable}'"
Если вы хотите получить значение переменной из TextBox
, тогда просто go вперед и сделайте это:
Dim someVariable As String = someTextBox.Text
или вы можете go для переменной и просто go прямо от TextBox
до окончательного текста:
Dim criteria As String = $"Invt.Type = '{someTextBox.Text}'"