[احمد خطاب]

فى خانة 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