Нужна помощь в visual basic - mysql - VB

Формулировка задачи:

Опять к вам обращаюсь умные люди :) Такая ситуация:
Rec = Cnn.Execute("SELECT ID FROM fsbot_users where id=123123"
Do While Not Rec.EOF
If Rec.Fields("ID").Value = 123123 Then
ListBox1.Items.Add(Rec.Fields("ID").Value)
Else
Cnn.Execute("INSERT INTO.......
End if
Нужно проверить ячейку, есть ли в столбце такое значение. Если есть, выводим. А иначе создаем. Не выходит так. Он не создает его. А если есть то не выводит. Что здесь не так?

Решение задачи: «Нужна помощь в visual basic - mysql»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> ID <font color="blue">as</font> <font color="blue">Long</font>
ID = <font color="darkblue"><b>123123</b></font>

<font color="blue">Set</font> Rec = Cnn.Execute(<font color="teal">"SELECT Count(*) FROM fsbot_users where id="</font> & ID)
<font color="blue">If</font> Rec(<font color="darkblue"><b>0</b></font>).Value = <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
  Cnn.Execute(<font color="teal">"INSERT INTO fsbot_users (ID) VALUES ("</font> & ID & <font color="teal">")"</font>)
<font color="blue">Else</font>
  ListBox1.Items.Add ID
<font color="blue">End</font> <font color="blue">if</font>
                        