چطور اين پارمترها رو به دستورات TSQL اضافه كنم توي vb.net?

[swallow.pa]

سلام به دوستان
اين كد رو ببينيد


If chkPublicVoucher.Checked = True Then
TsqlTypeVouvher = " AND VH.VoucherTypeRef IN(1) "
End If

If chkStartVoucher.Enabled = True Then
TsqlTypeVouvher = " AND VH.VoucherTypeRef IN(0) "
End If

If chkEndVoucher.Enabled = True Then
TsqlTypeVouvher = " AND VH.VoucherTypeRef IN(2) "
End If

حالا اگه دوتا چكها ترو بشن چطوري عمل ميشه من با دستورات if مي تونم اونو حل كنم اما فكر مي كنم روش بهتري باشه مي خوام بدونم دوستان چيكار مي كنن
ممنون

[swallow.pa]

من خودم اين روش رو استفاده كردم نظرتون چيه؟


Dim bytPublicVoucher As Byte
Dim bytStartVoucher As Byte
Dim bytEndVoucher As Byte


If chkPublicVoucher.Checked = True Then
bytPublicVoucher = 1
Else
bytPublicVoucher = 100
End If


If chkStartVoucher.Enabled = True Then
bytStartVoucher = 0
Else
bytStartVoucher = 100
End If

If chkEndVoucher.Enabled = True Then
bytEndVoucher = 2
Else
bytEndVoucher = 100
End If

TsqlTypeVouvher = String.Format(" AND VH.VoucherTypeRef IN({0},{1},{2}) ", bytStartVoucher, bytPublicVoucher, bytEndVoucher)