Grazie 1000 per la dritta,infatti ho risolto usando il resultset e usando hasrow

questo è +/- il codice:

codice:
Dim rs As Data.SqlServerCe.SqlCeResultSet = SelectBarcode.ExecuteResultSet(Data.SqlServerCe.ResultSetOptions.Scrollable)
                'reader = SelectBarcode.ExecuteReader

                If rs.HasRows = False Then
                    MsgBox("messaggio")

                Else
                    Do While rs.Read
eseguo il codice per inserire i dati trovati nei textbox
loop