[vbnet]

.....

منقول

كود :

Using com As New OleDbCommand(String.Empty, cn)
   cn.Open()

   com.CommandText = " INSERT INTO [table1] ([name], [age]) VALUES ('aaa', 35) "
   com.ExecuteNonQuery()

   ' معرفة قيمة حقل الترقيم التلقائي بغض النظر عن اسمه
   ' طبعاً لا يمكن أن يكون في الجدول الواحد أكثر من حقل ترقيم تلقائي واحد
   com.CommandText = "SELECT @@IDENTITY"
   MsgBox(command.ExecuteScalar())

   cn.Close()
End Using

.....