son id alıp bir değişkene nasıl atarım

[Cembio]

aşağıdaki kod çalışmıyor label2 ye bir türlü son id yi atamadım lütfen yardım edin

Sub sonid()
tbl.Clear()
bag.Open()
kom.Connection = bag
kom.CommandText = "select max(id) from Seans"
adp.SelectCommand = kom
adp.Fill(tbl2)
Label2.Text = tbl2.Columns("id").ToString()


adp.Dispose()
kom.Dispose()
bag.Close()

End Sub