On Error GoTo errobj
    Set ADOConn = New ADODB.Connection
    Set ADORec = New ADODB.Recordset
    Set ADOComm = New ADODB.Command
    With ADOConn
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & _
          App.Path & "\test.mdb"
        .CursorLocation = adUseClient
        .Mode = adModeShareDenyWrite
        .ConnectionTimeout = 0
        .Open
 
        ADORec.ActiveConnection = ADOConn
        ADORec.Open "SELECT * FROM tbl_usnames", , adOpenStatic, _
          adLockBatchOptimistic
        With ADORec
            .AddNew
            .Fields("Description").Value = "KENJIRO"
            .Update
            .UpdateBatch
 
        End With
   End With
    Exit Sub
errobj:
    Dim erro As error
    For Each erro In ADOConn.Errors
        MsgBox erro.Description, vbCritical, Err.Number
    Next