Public Function searchTool(ByVal txtPm As String) As DataTable
Dim objCommand As SqlCommand
Dim resultDt As DataTable = New DataTable
Dim objReader As SqlDataReader
Dim strSql As String
strSql = "select itemnum,description from tbl_inventory where"
strSql &= "itemnum = '" & txtPm & "'"
objCommand = New SqlCommand(strSql, objConn)
objReader = objCommand.ExecuteReader()
resultDt.Load(objReader)
Return resultDt
End Function