Не могу разобраться с ADODB - VB

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

Dim mConnection
 mConnection = CreateObject()
mConnection. , , 
mConnection. 
 mConnection = Nothing

Вот код, я не могу понять как мне получить обратно значение поля keyID, которое уникально и присваевается MSSQL'ем. если объяните буду безграничто благодарен. мучаю могз уже 2 день :(
заранее спасибо, надежда вся на вас :)

Решение задачи: «Не могу разобраться с ADODB»

textual
                            Листинг программы 
                        
                            <font color="blue">select</font> IDENT_CURRENT('tblMain')