مشاهده اطلاعات در label

[reza_vb64]

من می خواهم اطلاعات فیلدی از جدولم در label نمایش داده بشه و در هر بار اجرای برنامه مقدار جدید آن نمایش داده بشه نه اولین مقدار آن.این فیلد در جدول به صورت autonumber می باشد .

[masoud.t123]

Public Class Form1
Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=""db1.mdb"""

Dim con As New OleDb.OleDbConnection(connectionstring)
Dim cmd As New OleDb.OleDbCommand("", con)
Dim da As New OleDb.OleDbDataAdapter("", connectionstring)
Dim dt As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
con.Open()
cmd.CommandText = "select Max(id) from table1 "

Label1.Text = cmd.ExecuteScalar
con.Close()
End Sub
End Class

[masoud.t123]

دوست عزیز نمونه ضمیمه رو دانلود کن تا بهتر متوجه بشی.