How Do I Get The Id Of A New Record

See more:

VB

What I'm trying to do is store a new record in an Access database and read it back to get the automatic generated record-id back.

If searchid = 0 Then
'sla de nieuwe zoekstring op en sla de zoek resultaten op.
CvmetadataDataSet.SearchStrings.AddSearchStringsRow(quicksearchstring(2))
SearchStringsBindingSource.EndEdit()
SearchStringsTableAdapter.Update(CvmetadataDataSet.SearchStrings)

newstring = True
For Each item In CvmetadataDataSet.SearchStrings
If item.Searchstring = quicksearchstring(2) Then
searchid = item.SearchID
Exit For
End If
Next
Else

When I run this code the variable searchid gets back the value -1. After I close the program and check the database I can see that the record is stored with a proper ID. How can I get the real id value?