[وائل القطاوي]

كود :

     Dim dt As New DataTable
       dt.Clear()
       Dim da0 As New OleDbDataAdapter("SELECT max(ID) from اسم الجدول", con)
       da0.Fill(dt)
       MsgBox(dt(0)(0))

أخبرني بالنتيجة