Довольно часто сталкиваюсь с необходимостью назначать и считывать значения переменных соот ветсвии с ниже приведёнными примерами.
И понимаю, что либо я не знаю азов языка либо он имеет существенные ограничения. Кароче подскажите, как реализовать на VB подобные схемы

Для примера 2 примера))

Пример 1:

Есть некая база данных, хранящая необходимые значения
нужно сделать следующее - присвоить куче переменных с именами
Val1 Val2 Val3 Val4 Val5 значение соответсвующих полей в базе данных

Например это можно бы сделать так...

sDim = Split("Val1 Val2 Val3 Val4 Val5 и так далее")

strSQL = "SELECT * FROm BAzaNAme "
set tmp = con.EXECUTE(strSQL)
for i=0 to Ubound(sDim)
sDim(i) = tmp( sDim(i)).value
NEXT
tmp.close

НО!!!! sDim(i) должно быть не значением элемента массива, а переменной с именем sDim(i), тоесть если бы я написал при обращении к базе следующее

strSQL = "SELECT * FROm BAzaNAme "
set tmp = con.EXECUTE(strSQL)
Val1 = tmp("Val1").value
Val2 = tmp("Val2").value
Val3 = tmp("Val3").value
Val4 = tmp("Val4").value
tmp.close


Пример2:

Dim Val1, Val2, Val3, Val4, Val5....и так далее
Dim strDIM
sDim= split("Val1 Val2 Val3 Val4 Val5...и так далее")

далее идёт тело программы , в результате:

Val1= TRUE
Val2 = TRUE
Val3= TRUE
Val4 =FALSE
Val5 = ..... м так далее

Надо, чтобы можно было проверять значения переменных таким образом

For fi=1 to ubound(sDim)
if Val&Fi then
тут одно делаем
Else
а тут другое
End if
NEXT

Синтаксис Val&Fi естественно не верный. МОЖНО ЛИ ЭТОТ КАК ТО РЕАЛИЗОВАТЬ НА VB и как это будет выглядеть