Instead of ....
Dim FindRow As Data.DataRow = DataConn.dsStockDetails.Tables("StockDetails").Rows.Find(objICode)
use ...
Dim rows = DataConn.dsStockDetails.Tables("StockDetails").Select(String.Format("sEmpNo = {0}",txtICode.Text))
if(rows.GetLength(0) != 0) Then FindRow = rows[0]
Excuse me if there are VB errors I am used to C#