(05-11-19, 02:52 AM)boudyonline كتب : [ -> ]ارفق المشروع
Dim StrSQL as String= "Select IIF(Max(id) Is NULL,1,Max(id)+1) From data" Dim da As New OleDbDataAdapter(StrSQL, Con) Dim dt As New DataTable da.Fill(dt) Txt_id.Text=dt.Rows(0)(0).ToString()