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
        .Open
 
        ADORec.ActiveConnection = ADOConn
        ADORec.Open "SELECT * FROM tbl_usnames", , adOpenStatic, _
          adLockOptimistic
        With ADORec
            .AddNew
            .Fields("Description").Value = "KENJIRO"
            .Update
 
        End With
   End With
    Exit Sub
errobj:
    Dim erro As error
    For Each erro In ADOConn.Errors
        MsgBox erro.Description, vbCritical, Err.Number
    Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de