[justforit]

جرب الكود:

PHP كود :

Private Sub del_last(c As OleDb.OleDbConnection, tbname As String, col As String)
     Using cm As New OleDb.OleDbCommand("", c)
         cm.CommandText = "delete * from " & tbname & " where " & col & "= (select top 1 " & col & " from " & tbname & " order by " & col & " DESC)"
         If c.State = ConnectionState.Closed Then c.Open()
         cm.ExecuteNonQuery()
         MsgBox("تم حذف اخر سجل")
     End Using
 End Sub

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

 End Sub

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
     Dim con As New OleDb.OleDbConnection(str)
     del_last(con, "tb", "tname")
 End Sub