...= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\stock.mdb"
cn5.Open
Set rs5 = New ADODB.Recordset
sSQL5 = "SELECT * FROM Stores WHERE barcodeout = '" & (txtSearch.Text) & "'"
rs5.Open sSQL5, cn5, adOpenKeyset, adLockOptimistic, adCmdText
txtItemNo.Text =...