Using this code but get an error (See below)
Sql = "SELECT tbl_Inventory.InternalKeyNumber "
Sql = Sql & "FROM tbl_Inventory "
Sql = Sql & "WHERE tbl_Inventory.InternalKeyNumber = " & Ser
Set rst = Dbs.OpenRecordset(Sql)
If rst.RecordCount = 0 Then
MsgBox "Invalid Serial Number. Please try again"
"You mus use dbseechanges with openrecordset when accessing SQL server table that has an identity column"