Private Sub Default__Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As SqlConnection = New SqlConnection("datasource=xxx;database=xxx;uid=xxx;pwd=xxx;")
Dim cmd As SqlCommand = New SqlCommand("SELECT ID FROM Table WHERE DateTimeCreated = ???????????", conn)
conn.Open()
Dim ID As String = Convert.ToString(cmd.ExecuteScalar())
conn.Close()
lblID.Text = ID
End Sub
基本的に、???????? を置き換えるものが必要です。最後に作成された ID を取得します (ID は一意の識別子です)。
全体を間違って設定している可能性がありますが、それは本当に単純だと確信しています。