فى خانة user_id الناتج كان لازم يطلع رقم 1 لماذا ظهر زيرو كما فى المرفق وفقا للكود المعروض
Public Sub code_users()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select max(`user_id`) from users", con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
mynewidusers = 1
Else
mynewidusers = dt(0)(0) + 1
End If
Public Sub code_users()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select max(`user_id`) from users", con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
mynewidusers = 1
Else
mynewidusers = dt(0)(0) + 1
End If