[Adrees]

تفضل اخي الكريم

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Dt As New DataTable
        Dim dap As New SqlDataAdapter("select MAX(ID)+1 from UserTb", com)
        dap.Fill(Dt)
        For Each dr As DataRow In Dt.Rows
            TextBox4.Text = dr(0)
        Next

    End Sub