And another thik with this code i can't clean the fields :
What is wrong ?
Private Sub Command4_Click()
Dim n As Integer
Dim adoSecondaryRs As Recordset
n = txtfields(0).Text
Call contaId

Set adoSecondaryRs = New Recordset
adoSecondaryRs.ActiveConnection = m_oConn
adoSecondaryRs.CursorLocation = adUseClient
adoSecondaryRs.Open "Select * from", m_oConn, _
adOpenStatic, adLockOptimistic
txtfields(0).Text = n
With adoSecondaryRs
If Not (.BOF And .EOF) Then
mvBookMark = .Bookmark
End If
.AddNew
txtfields(188).Text = Format$(Now, "dd-mm-yyyy"

txtfields(189).Text = Format$(Now, "hh:mm:ss"
mbAddNewFlag = True
End With
Exit Sub