[abdualla]

أخي نبيل

تفضل التعديل وذلك بمعرفة قيمة Id بعد تنفيذ الإضافة مباشرة

PHP كود :

   'con.Open()
    ss = "INSERT INTO [tab_older] ([date], [sailman],[ID]) VALUES (@date, @sailman, @ID)"
    Dim md As New OleDbCommand(ss, con)
    md.Parameters.AddWithValue("@date", dtolder.Value.Date)
    md.Parameters.AddWithValue("@sailman", txtsailman.Text)
    md.Parameters.AddWithValue("@ID", txtnamper.Text)
    md.ExecuteNonQuery()

    md.CommandText = "SELECT @@IDENTITY"
    Dim id As Integer = md.ExecuteScalar
    MsgBox(id)
    'con.Close() 


---

هناك اشكالية في الكود الذي لديك، فأنت قمت بتعريف md وcmd
راجع الكود جيدا