Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Const cstrBase As String = "C:\"
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & cstrBase & ";Extended Properties=dBase IV"
    .Open
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
    With cmd
        .ActiveConnection = cn
        .CommandText = "INSERT INTO 1 (FIELD1_NAME,FIELD2_NAME,FIELD3_NAME) VALUES (555,'test','Imya')"
        .Execute
    End With
    Set rs = .Execute("SELECT*FROM 1")
    Cells( 2 ,  7 ).CopyFromRecordset rs 'проверка добавления новой записи
    .Close
End With