If PathFileExists("C:\ostatok2\dsh.DBF") =  1  Then
 Adodc2.ConnectionString = "DRIVER={Microsoft dBase Driver (*.dbf)};DBQ=C:\ostatok2\;DefaultDir =      C:\ostatok2\"
 Adodc2.CommandType = adCmdText
 Adodc2.RecordSource = "SELECT * FROM dsh.DBF"
 Set TDataLite2.DataSource = Adodc2
 Adodc2.Refresh
 TDataLite2.Refresh
 ad1 = Me.Adodc1.Recordset.RecordCount
 ad2 = Me.Adodc2.Recordset.RecordCount
 nom =  0 
  For i =  0  To ad2
  Me.Adodc1.Recordset.MoveFirst
  If Me.Adodc2.Recordset.EOF = False Then

  namefilt1 = Me.Adodc1.Recordset("KOD").Value
  namefilt1name = Me.Adodc1.Recordset("NAME").Value
  namefilt1name2 = Me.Adodc2.Recordset("NAME").Value
  namefilt2 = Me.Adodc2.Recordset("KOD").Value
  namefilt1kol2 = Me.Adodc2.Recordset("KOLVO").Value
  Me.Adodc1.Recordset.Find "KOD =" + namefilt2
   If Adodc1.Recordset.EOF Then
   Me.Adodc1.Recordset.AddNew
   Me.Adodc1.Recordset!KOD = namefilt2
   Me.Adodc1.Recordset!Name = namefilt1name2
   Me.Adodc1.Recordset!DSH = namefilt1kol2
   'Me.Adodc1.Recordset.Update
   nom = nom +  1 
   Else
   Me.Adodc1.Recordset("DSH").Value = namefilt1kol2
   'Me.Adodc1.Recordset.Update
   nom = nom +  1 
   End If
 
  End If
 Me.Adodc2.Recordset.MoveNext
 Next i
Adodc1.Refresh
TDataLite1.Refresh
mes2 = MsgBox(mes1, vbOKOnly)
End If

Adodc1.ConnectionString = "DRIVER={Microsoft dBase Driver (*.dbf)};DBQ=C:\ostatok2\;DefaultDir = C:\ostatok2\"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "INSERT INTO ostatok(KOD,NAME,DSH) SELECT dsh.KOD,dsh.NAME,dsh.KOLVO " + _
"FROM dsh where ostatok.KOD=dsh.KOD"

where ostatok.KOD=dsh.KOD

On Error GoTo ado1
If PathFileExists("C:\ostatok2\dsh.DBF") =  1  Then

 Adodc1.ConnectionString = "DRIVER={Microsoft dBase Driver (*.dbf)};DBQ=C:\ostatok2\;DefaultDir = C:\ostatok2\"
 Adodc1.CommandType = adCmdText
 Adodc1.RecordSource = "INSERT INTO ostatok(KOD,NAME,DSH) SELECT dsh.KOD,dsh.NAME,dsh.KOLVO " + _
 "FROM dsh where ostatok.KOD=dsh.KOD"
 Set TDataLite2.DataSource = Adodc2
 Adodc1.Refresh
 TDataLite1.Refresh
End If

Adodc1.Refresh

Conn.Execute "INSERT INTO ostatok(KOD,NAME,DSH) SELECT dsh.KOD,dsh.NAME,dsh.KOLVO " + _
 "FROM dsh where ostatok.KOD=dsh.KOD"

Conn.Execute "INSERT INTO ostatok.dbf(KOD,NAME,DSH) SELECT b.KOD,b.NAME,b.KOLVO " + _
 "FROM dsh.dbf as b ,ostatok.dbf as a " + _
 "where a.KOD=b.KOD"

"where a.KOD=b.KOD"

Conn.Execute "INSERT INTO ostatok.dbf(KOD,NAME,DSH) SELECT b.KOD,b.NAME,b.KOLVO " + _
 "FROM dsh.dbf as b ,ostatok.dbf as a " + _
 "where a.KOD=b.KOD"

Conn.Execute "INSERT INTO ostatok.dbf(KOD,NAME,DSH)" + _
'"SELECT b.KOD,b.NAME,b.KOLVO,c.KOLVO " + _
'"FROM dsh.dbf AS b LEFT JOIN ostatok.dbf AS a ON a.KOD=b.KOD" + _
'"WHERE a.NAME IS NULL"

If PathFileExists("C:\ostatok2\dsh.DBF") =  1  Then
 Dim Conn As New ADODB.Connection
 Conn.Open "DRIVER={Microsoft dBase Driver (*.dbf)};DBQ=C:\ostatok2\;DefaultDir =C:\ostatok2\"
 Conn.Execute "INSERT INTO ostatok.dbf(KOD,NAME,DSH)" + _
 '"SELECT b.KOD,b.NAME,b.KOLVO,c.KOLVO " + _
 '"FROM dsh.dbf AS b LEFT JOIN ostatok.dbf AS a ON a.KOD=b.KOD" + _
 '"WHERE a.NAME IS NULL"
 Conn.Close
 Set Conn = Nothing
End If

If PathFileExists("C:\ostatok2\sklad.DBF") =  1  Then
 Conn.Open "DRIVER={Microsoft dBase Driver (*.dbf)};DBQ=C:\ostatok2\;DefaultDir =C:\ostatok2\"
 Conn.Execute "INSERT INTO ostatok.dbf(KOD,NAME,KOLVO)" + _
 "SELECT b.KOD,b.NAME,b.KOLVO " + _
 "FROM sklad.dbf AS b LEFT JOIN ostatok.dbf AS a ON a.KOD=b.KOD " + _
 "WHERE a.NAME IS NULL "
 Conn.Close
 Set Conn = Nothing
End If

KOD NAME SKLAD DSH
 123  но-шпа   150  
 123  но-шпа       200 

KOD NAME SKLAD DSH
 123  но-шпа   150   200 

Conn.Execute "INSERT INTO ostatok.dbf(KOD,NAME,DSH)" + _
 '"SELECT b.KOD,b.NAME,b.KOLVO" + _
 '"FROM dsh.dbf AS b LEFT JOIN ostatok.dbf AS a ON a.KOD=b.KOD" + _
 '"WHERE a.NAME IS NULL"