Can you use the EOF property of the RecordSet?
Dim con As Object
Dim rs As Object
Dim stSql As String
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
sSQL = "select from barcodetable where barcode=" & barcode
rs.Open stSql, con, 1 ' 1 = adOpenKeyset...