[الحزين اليماني]

اخي الحبيب استخدم دالة max كا التالي
Public Function Max_lap_nocustomer()
Dim Number As Integer
Try
Dim cmd As New SqlCommand("Select Max(lap_no) From custemar ", con)
If con.State = 1 Then con.Close()
con.Open()
Number = cmd.ExecuteScalar
con.Close()
Catch ex As Exception
Number = 0
con.Close()
End Try
Return Number
End Function
بعدها في السب الخاص بالكلير Max_lap_nocustomer+1
بالتوفيق