Otomatik Sayı Kayit İd Değerini Aldırma

Merhaba arkadaşlar.
Aşağıdaki kod ile Access veri tabanına yeni kayıt açıyorum. Satış tablosunda kayit_id otomatik sayı alanı var.
Oluşan yeni kaydın kayit_id değerini nasıl aldırıp başka bi kod satırında kullanabilirim?



Dim veri As New OleDb.OleDbCommand

veri.CommandText = "INSERT INTO satis (satis_tarihisaat,musteri_adi,musteri_id,toplam_tutar,odeme_alindimi) values (@satis_tarihsaatdeger,@musteri_adideger,@musteri_iddeger,@toplam_tutardeger,@odeme_alindimideger)"
veri.CommandType = CommandType.Text
veri.Connection = connect
connect.Open()


Dim kayit1 As New OleDb.OleDbParameter("@satis_tarihsaatdeger", DbType.DateTime)
kayit1.SourceColumn = "satis_tarihisaat"
kayit1.Value = CStr(DateAndTime.Now)
veri.Parameters.Add(kayit1)


Dim kayit2 As New OleDb.OleDbParameter("@musteri_adideger", DbType.String)
kayit2.SourceColumn = "musteri_adi"
kayit2.Value = ComboBox1.Text
veri.Parameters.Add(kayit2)


Dim kayit3 As New OleDb.OleDbParameter("@musteri_iddeger", DbType.String)
kayit3.SourceColumn = "musteri_id"
kayit3.Value = musteriidlabeli.Text
veri.Parameters.Add(kayit3)


Dim kayit4 As New OleDb.OleDbParameter("@toplam_tutardeger", DbType.String)
kayit4.SourceColumn = "toplam_tutar"
kayit4.Value = CInt(toplamtutarlabel.Text)
veri.Parameters.Add(kayit4)

Dim kayit5 As New OleDb.OleDbParameter("@odeme_alindimideger", DbType.Int32)
kayit5.SourceColumn = "odeme_alindimi"
kayit5.Value = "0"
veri.Parameters.Add(kayit5)

veri.ExecuteNonQuery()
connect.Close()

merhaba
Kodunun sonuna şunu ekle:

veri.ExecuteNonQuery()

' Eklenen kaydın ID'sini al
Dim cmdID As New OleDb.OleDbCommand("SELECT @@IDENTITY", connect)
Dim yeniID As Integer = Convert.ToInt32(cmdID.ExecuteScalar())

connect.Close()

' Artık yeniID değişkenini istediğin yerde kullanabilirsin
MessageBox.Show("Yeni kayıt ID: " & yeniID.ToString())

Çok teşekkür ederim hocam. elinize sağlık.