[ΑΛΕΞΙΑ]

Dim rs As Object
With OpenDatabase("C:\programa\test.xlsx", False, True, "Excel 8.0;HDR=Yes;")

Set rs = .OpenRecordset("DataSh")

If rs.RecordCount Then
Do While Not rs.EOF

With CurrentDb.OpenRecordset("tblData", 2)
'.MoveFirst
.AddNew
!epiteto = rs.Fields(0)
!Onoma = rs.Fields(1)
.Update
End With
rs.MoveNext
Loop

End If
rs.Close
End With

Καλημέρα μας
Αυτό που ανέβασα εχω περασει και μου βγαζει το μνμ που σου προεστειλα.
ριξε του μια ματια εαν μπορείς

Αλεξία