You could append and prepend the % symbol to your string variable before you pass it into CreateParameter
.CommandText = "SELECT * FROM table WHERE F_Name LIKE '?'"
.Parameters.Append .CreateParameter("p1", adVarChar, adInputParam, 255, "%" + strFname + "%")