ADODB.RecordSet и ADODB.Command - VB

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

В классе выполняю запрос из базы данных с помощью ADODB.Command
прописываю процедуру для добавления записей в Рекорд сет в форме эту процедуру использую и отображаю в текстовые поля. Перемещения по записям работают. и не более того...самое главное рек сет не обновляется...
проц-ра формирования РекСета в форме:
Private Sub Form_Load()
Set NavRs = New ADODB.Recordset
Rs.dbconn = mycon.dbconn
Rs.SetRS
Set NavRs = Rs.Nav
'проц-ра создает необх кол-во полей текстовых
showform
For i = 0 To Rs.colText - 1
Set txtFields(i).DataSource = Rs
txtFields(i).DataField = Rs.ListFields.Item(i + 1)
Next
End Sub
процедура .SetRS в классе
Public Sub SetRS()
CmdFull.ActiveConnection = mycon.dbconn
CmdFull.CommandType = adCmdText
CmdFull.Prepared = False
CmdFull.CommandText = "select Paid.Number,Banks.Name,Clients.Name,TypeOfPaid.Name,Paid.Date,Paid.Monney,Paid.Dolg from Paid,Banks,TypeOfPaid,Clients where Paid.KodB = Banks.Kod and Paid.Paids = TypeOfPaid.Kod and Paid.KodK = Clients.Kod"
Set ConRs = CmdFull.Execute
End Sub
изза чего он не дает производить обычные действия с РекСетом в частности обновление...как сделать чтобы работало....ПОМОГИТЕ СКОРО СДАВАТЬ А ЕЩЕ НЕ ВСЕ РАБОТАЕТ...пожалуста...

Решение задачи: «ADODB.RecordSet и ADODB.Command»

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

                            rs.CursorLocation = adUseClient
   rs.CursorType = adOpenStatic
   rs.LockType = adLockOptimistic
   <font color="blue">Set</font> rs = CmdFull.Execute
                        