oApp.Visible = true 

Dim subpath As String
subpath = ActiveWorkbook.path & "\kladr"

Dim cnn As New ADODB.Connection

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & subpath & _
          ";Extended Properties=dBase 5.0"

cnn.Execute ("create table MyTable (pens char(14), fam char(40), im char(40))")

cnn.Close
Set cnn = Nothing

'/////////////////////////////////////////////////////////////


Dim oApp As New Excel.Application
Dim WB As Excel.Workbook

'Dim oApp As Excel.Application
'oApp.SheetsInNewWorkbook = 1

Set WB = oApp.Workbooks.Open(subpath & "\MyTable.dbf")

With WB.ActiveSheet
.Cells( 2 ,  1 ) = "12222"
.Cells( 2 ,  2 ) = "12223"
.Cells( 2 ,  3 ) = "12442"
End With

WB.Save
WB.Close  1 
oApp.Quit
Set oApp = Nothing

cnn.Execute ("INSERT INTO MyTable (pens) values ('')")

cnn.Execute ("INSERT INTO MyTable ( PENS, FAM, IM ) VALUES ('111','222','333')")