[wale90]

هذا التصحيح للجزء code_Users

كود :

Public Sub code_Users()
   Dim cm As New OleDbCommand("SELECT MAX(UserID) FROM Users", con)
   If con.State <> ConnectionState.Open Then con.Open()
   Dim ret = cm.ExecuteScalar
   con.Close()
   If ret.GetType Is GetType(System.DBNull) Then ret = 1
   mynewIDUsers = ret
End Sub