[alshandodi]

اسعد الله صباحكم مثال اريد اجلب اكبر عدد باستخدام هذا الكود ما هي الطريقه لنص الاتصال فنص الأتصال متغير من برنامج الى برنامج ولك مني جزيل الشكر والتقدير 

كود :

Public Function Max_Record(IDColumnName As String, TableName As String) As DataTable
       Dim Str As String = "Select IIF(Max(" & IDColumnName & ") IS Null,1,Max(" & IDColumnName & ")+1)As ID From " & TableName
       Dim Cmd As OleDb.OleDbCommand
       Dim Dt As New DataTable
       Dt.Clear()
       Cmd = New OleDb.OleDbCommand(Str, con)
       Dim Da As New OleDb.OleDbDataAdapter(Cmd)
       Da.Fill(Dt)
       Return (Dt)
   End Function